/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / nnspool.elc.z / nnspool.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6c 61 72 73 69 40 69 |piled by| larsi@i|
|00000020| 66 69 2e 75 69 6f 2e 6e | 6f 20 6f 6e 20 46 72 69 |fi.uio.n|o on Fri|
|00000030| 20 4a 75 6e 20 32 38 20 | 32 30 3a 33 34 3a 34 33 | Jun 28 |20:34:43|
|00000040| 20 31 39 39 36 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1996.;;|; from f|
|00000050| 69 6c 65 20 2f 67 64 2f | 67 6e 75 2f 65 6d 61 63 |ile /gd/|gnu/emac|
|00000060| 73 2f 31 39 2e 30 2f 6c | 69 73 70 2f 6e 6e 73 70 |s/19.0/l|isp/nnsp|
|00000070| 6f 6f 6c 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |ool.el.;|;; emacs|
|00000080| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 33 31 2e 34 | version| 19.31.4|
|00000090| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000a0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000b0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000c0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000d0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000e0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|000000f0| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000100| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000110| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000120| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000130| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000140| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000160| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 2e 32 |cs-versi|on "19.2|
|00000180| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|00000190| 20 22 60 6e 6e 73 70 6f | 6f 6c 2e 65 6c 27 20 77 | "`nnspo|ol.el' w|
|000001a0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001b0| 45 6d 61 63 73 20 31 39 | 2e 32 39 20 6f 72 20 6c |Emacs 19|.29 or l|
|000001c0| 61 74 65 72 22 29 29 0a | 0a 0a 28 62 79 74 65 2d |ater")).|..(byte-|
|000001d0| 63 6f 64 65 20 22 c0 c1 | 21 88 c0 c2 21 88 c0 c3 |code "..|!...!...|
|000001e0| 21 88 c0 c4 21 88 c5 c6 | c7 c8 5c 22 c8 89 46 0e |!...!...|..\"..F.|
|000001f0| 09 42 16 09 c8 87 22 20 | 5b 72 65 71 75 69 72 65 |.B...." |[require|
|00000200| 20 6e 6e 68 65 61 64 65 | 72 20 6e 6e 74 70 20 74 | nnheade|r nntp t|
|00000210| 69 6d 65 7a 6f 6e 65 20 | 6e 6e 6f 6f 20 6e 6e 73 |imezone |nnoo nns|
|00000220| 70 6f 6f 6c 20 6d 61 70 | 63 61 72 20 23 5b 28 70 |pool map|car #[(p|
|00000230| 29 20 22 08 43 87 22 20 | 5b 70 5d 20 31 5d 20 6e |) ".C." |[p] 1] n|
|00000240| 69 6c 20 6e 6e 6f 6f 2d | 64 65 66 69 6e 69 74 69 |il nnoo-|definiti|
|00000250| 6f 6e 2d 61 6c 69 73 74 | 5d 20 34 29 0a 23 40 36 |on-alist|] 4).#@6|
|00000260| 37 20 50 72 6f 67 72 61 | 6d 20 74 6f 20 70 6f 73 |7 Progra|m to pos|
|00000270| 74 20 6e 65 77 73 2e 0a | 54 68 69 73 20 69 73 20 |t news..|This is |
|00000280| 6d 6f 73 74 20 63 6f 6d | 6d 6f 6e 6c 79 20 60 69 |most com|monly `i|
|00000290| 6e 65 77 73 27 20 6f 72 | 20 60 69 6e 6a 6e 65 77 |news' or| `injnew|
|000002a0| 73 27 2e 1f 0a 28 64 65 | 66 76 61 72 20 6e 6e 73 |s'...(de|fvar nns|
|000002b0| 70 6f 6f 6c 2d 69 6e 65 | 77 73 2d 70 72 6f 67 72 |pool-ine|ws-progr|
|000002c0| 61 6d 20 6e 65 77 73 2d | 69 6e 65 77 73 2d 70 72 |am news-|inews-pr|
|000002d0| 6f 67 72 61 6d 20 28 23 | 24 20 2e 20 36 31 30 29 |ogram (#|$ . 610)|
|000002e0| 29 0a 28 6e 6e 6f 6f 2d | 64 65 66 69 6e 65 20 28 |).(nnoo-|define (|
|000002f0| 71 75 6f 74 65 20 6e 6e | 73 70 6f 6f 6c 2d 69 6e |quote nn|spool-in|
|00000300| 65 77 73 2d 70 72 6f 67 | 72 61 6d 29 20 6e 69 6c |ews-prog|ram) nil|
|00000310| 29 0a 23 40 31 34 32 20 | 53 77 69 74 63 68 65 73 |).#@142 |Switches|
|00000320| 20 66 6f 72 20 6e 6e 73 | 70 6f 6f 6c 2d 72 65 71 | for nns|pool-req|
|00000330| 75 65 73 74 2d 70 6f 73 | 74 20 74 6f 20 70 61 73 |uest-pos|t to pas|
|00000340| 73 20 74 6f 20 60 69 6e | 65 77 73 27 20 66 6f 72 |s to `in|ews' for|
|00000350| 20 70 6f 73 74 69 6e 67 | 20 6e 65 77 73 2e 0a 49 | posting| news..I|
|00000360| 66 20 79 6f 75 20 61 72 | 65 20 75 73 69 6e 67 20 |f you ar|e using |
|00000370| 43 6e 65 77 73 2c 20 79 | 6f 75 20 70 72 6f 62 61 |Cnews, y|ou proba|
|00000380| 62 6c 79 20 73 68 6f 75 | 6c 64 20 73 65 74 20 74 |bly shou|ld set t|
|00000390| 68 69 73 20 76 61 72 69 | 61 62 6c 65 20 74 6f 20 |his vari|able to |
|000003a0| 6e 69 6c 2e 1f 0a 28 64 | 65 66 76 61 72 20 6e 6e |nil...(d|efvar nn|
|000003b0| 73 70 6f 6f 6c 2d 69 6e | 65 77 73 2d 73 77 69 74 |spool-in|ews-swit|
|000003c0| 63 68 65 73 20 28 71 75 | 6f 74 65 20 28 22 2d 68 |ches (qu|ote ("-h|
|000003d0| 22 20 22 2d 53 22 29 29 | 20 28 23 24 20 2e 20 37 |" "-S"))| (#$ . 7|
|000003e0| 39 32 29 29 0a 28 6e 6e | 6f 6f 2d 64 65 66 69 6e |92)).(nn|oo-defin|
|000003f0| 65 20 28 71 75 6f 74 65 | 20 6e 6e 73 70 6f 6f 6c |e (quote| nnspool|
|00000400| 2d 69 6e 65 77 73 2d 73 | 77 69 74 63 68 65 73 29 |-inews-s|witches)|
|00000410| 20 6e 69 6c 29 0a 23 40 | 32 39 20 4c 6f 63 61 6c | nil).#@|29 Local|
|00000420| 20 6e 65 77 73 20 73 70 | 6f 6f 6c 20 64 69 72 65 | news sp|ool dire|
|00000430| 63 74 6f 72 79 2e 1f 0a | 28 64 65 66 76 61 72 20 |ctory...|(defvar |
|00000440| 6e 6e 73 70 6f 6f 6c 2d | 73 70 6f 6f 6c 2d 64 69 |nnspool-|spool-di|
|00000450| 72 65 63 74 6f 72 79 20 | 28 66 69 6c 65 2d 6e 61 |rectory |(file-na|
|00000460| 6d 65 2d 61 73 2d 64 69 | 72 65 63 74 6f 72 79 20 |me-as-di|rectory |
|00000470| 6e 65 77 73 2d 70 61 74 | 68 29 20 28 23 24 20 2e |news-pat|h) (#$ .|
|00000480| 20 31 30 35 31 29 29 0a | 28 6e 6e 6f 6f 2d 64 65 | 1051)).|(nnoo-de|
|00000490| 66 69 6e 65 20 28 71 75 | 6f 74 65 20 6e 6e 73 70 |fine (qu|ote nnsp|
|000004a0| 6f 6f 6c 2d 73 70 6f 6f | 6c 2d 64 69 72 65 63 74 |ool-spoo|l-direct|
|000004b0| 6f 72 79 29 20 6e 69 6c | 29 0a 23 40 32 37 20 4c |ory) nil|).#@27 L|
|000004c0| 6f 63 61 6c 20 6e 65 77 | 73 20 6e 6f 76 20 64 69 |ocal new|s nov di|
|000004d0| 72 65 63 74 6f 72 79 2e | 1f 0a 28 64 65 66 76 61 |rectory.|..(defva|
|000004e0| 72 20 6e 6e 73 70 6f 6f | 6c 2d 6e 6f 76 2d 64 69 |r nnspoo|l-nov-di|
|000004f0| 72 65 63 74 6f 72 79 20 | 28 63 6f 6e 63 61 74 20 |rectory |(concat |
|00000500| 6e 6e 73 70 6f 6f 6c 2d | 73 70 6f 6f 6c 2d 64 69 |nnspool-|spool-di|
|00000510| 72 65 63 74 6f 72 79 20 | 22 6f 76 65 72 2e 76 69 |rectory |"over.vi|
|00000520| 65 77 2f 22 29 20 28 23 | 24 20 2e 20 31 32 31 35 |ew/") (#|$ . 1215|
|00000530| 29 29 0a 28 6e 6e 6f 6f | 2d 64 65 66 69 6e 65 20 |)).(nnoo|-define |
|00000540| 28 71 75 6f 74 65 20 6e | 6e 73 70 6f 6f 6c 2d 6e |(quote n|nspool-n|
|00000550| 6f 76 2d 64 69 72 65 63 | 74 6f 72 79 29 20 6e 69 |ov-direc|tory) ni|
|00000560| 6c 29 0a 23 40 34 38 20 | 57 68 65 72 65 20 74 68 |l).#@48 |Where th|
|00000570| 65 20 6c 6f 63 61 6c 20 | 6e 65 77 73 20 6c 69 62 |e local |news lib|
|00000580| 72 61 72 79 20 66 69 6c | 65 73 20 61 72 65 20 73 |rary fil|es are s|
|00000590| 74 6f 72 65 64 2e 1f 0a | 28 64 65 66 76 61 72 20 |tored...|(defvar |
|000005a0| 6e 6e 73 70 6f 6f 6c 2d | 6c 69 62 2d 64 69 72 20 |nnspool-|lib-dir |
|000005b0| 22 2f 75 73 72 2f 6c 69 | 62 2f 6e 65 77 73 2f 22 |"/usr/li|b/news/"|
|000005c0| 20 28 23 24 20 2e 20 31 | 33 38 34 29 29 0a 28 6e | (#$ . 1|384)).(n|
|000005d0| 6e 6f 6f 2d 64 65 66 69 | 6e 65 20 28 71 75 6f 74 |noo-defi|ne (quot|
|000005e0| 65 20 6e 6e 73 70 6f 6f | 6c 2d 6c 69 62 2d 64 69 |e nnspoo|l-lib-di|
|000005f0| 72 29 20 6e 69 6c 29 0a | 23 40 32 35 20 4c 6f 63 |r) nil).|#@25 Loc|
|00000600| 61 6c 20 6e 65 77 73 20 | 61 63 74 69 76 65 20 66 |al news |active f|
|00000610| 69 6c 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 6e 6e |ile...(d|efvar nn|
|00000620| 73 70 6f 6f 6c 2d 61 63 | 74 69 76 65 2d 66 69 6c |spool-ac|tive-fil|
|00000630| 65 20 28 63 6f 6e 63 61 | 74 20 6e 6e 73 70 6f 6f |e (conca|t nnspoo|
|00000640| 6c 2d 6c 69 62 2d 64 69 | 72 20 22 61 63 74 69 76 |l-lib-di|r "activ|
|00000650| 65 22 29 20 28 23 24 20 | 2e 20 31 35 33 33 29 29 |e") (#$ |. 1533))|
|00000660| 0a 28 6e 6e 6f 6f 2d 64 | 65 66 69 6e 65 20 28 71 |.(nnoo-d|efine (q|
|00000670| 75 6f 74 65 20 6e 6e 73 | 70 6f 6f 6c 2d 61 63 74 |uote nns|pool-act|
|00000680| 69 76 65 2d 66 69 6c 65 | 29 20 6e 69 6c 29 0a 23 |ive-file|) nil).#|
|00000690| 40 32 39 20 4c 6f 63 61 | 6c 20 6e 65 77 73 20 6e |@29 Loca|l news n|
|000006a0| 65 77 73 67 72 6f 75 70 | 73 20 66 69 6c 65 2e 1f |ewsgroup|s file..|
|000006b0| 0a 28 64 65 66 76 61 72 | 20 6e 6e 73 70 6f 6f 6c |.(defvar| nnspool|
|000006c0| 2d 6e 65 77 73 67 72 6f | 75 70 73 2d 66 69 6c 65 |-newsgro|ups-file|
|000006d0| 20 28 63 6f 6e 63 61 74 | 20 6e 6e 73 70 6f 6f 6c | (concat| nnspool|
|000006e0| 2d 6c 69 62 2d 64 69 72 | 20 22 6e 65 77 73 67 72 |-lib-dir| "newsgr|
|000006f0| 6f 75 70 73 22 29 20 28 | 23 24 20 2e 20 31 36 38 |oups") (|#$ . 168|
|00000700| 34 29 29 0a 28 6e 6e 6f | 6f 2d 64 65 66 69 6e 65 |4)).(nno|o-define|
|00000710| 20 28 71 75 6f 74 65 20 | 6e 6e 73 70 6f 6f 6c 2d | (quote |nnspool-|
|00000720| 6e 65 77 73 67 72 6f 75 | 70 73 2d 66 69 6c 65 29 |newsgrou|ps-file)|
|00000730| 20 6e 69 6c 29 0a 23 40 | 33 32 20 4c 6f 63 61 6c | nil).#@|32 Local|
|00000740| 20 6e 65 77 73 20 64 69 | 73 74 72 69 62 75 74 69 | news di|stributi|
|00000750| 6f 6e 73 20 66 69 6c 65 | 2e 1f 0a 28 64 65 66 76 |ons file|...(defv|
|00000760| 61 72 20 6e 6e 73 70 6f | 6f 6c 2d 64 69 73 74 72 |ar nnspo|ol-distr|
|00000770| 69 62 75 74 69 6f 6e 73 | 2d 66 69 6c 65 20 28 63 |ibutions|-file (c|
|00000780| 6f 6e 63 61 74 20 6e 6e | 73 70 6f 6f 6c 2d 6c 69 |oncat nn|spool-li|
|00000790| 62 2d 64 69 72 20 22 64 | 69 73 74 72 69 62 73 2e |b-dir "d|istribs.|
|000007a0| 70 61 74 22 29 20 28 23 | 24 20 2e 20 31 38 35 31 |pat") (#|$ . 1851|
|000007b0| 29 29 0a 28 6e 6e 6f 6f | 2d 64 65 66 69 6e 65 20 |)).(nnoo|-define |
|000007c0| 28 71 75 6f 74 65 20 6e | 6e 73 70 6f 6f 6c 2d 64 |(quote n|nspool-d|
|000007d0| 69 73 74 72 69 62 75 74 | 69 6f 6e 73 2d 66 69 6c |istribut|ions-fil|
|000007e0| 65 29 20 6e 69 6c 29 0a | 23 40 32 36 20 4c 6f 63 |e) nil).|#@26 Loc|
|000007f0| 61 6c 20 6e 65 77 73 20 | 68 69 73 74 6f 72 79 20 |al news |history |
|00000800| 66 69 6c 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 6e |file...(|defvar n|
|00000810| 6e 73 70 6f 6f 6c 2d 68 | 69 73 74 6f 72 79 2d 66 |nspool-h|istory-f|
|00000820| 69 6c 65 20 28 63 6f 6e | 63 61 74 20 6e 6e 73 70 |ile (con|cat nnsp|
|00000830| 6f 6f 6c 2d 6c 69 62 2d | 64 69 72 20 22 68 69 73 |ool-lib-|dir "his|
|00000840| 74 6f 72 79 22 29 20 28 | 23 24 20 2e 20 32 30 32 |tory") (|#$ . 202|
|00000850| 39 29 29 0a 28 6e 6e 6f | 6f 2d 64 65 66 69 6e 65 |9)).(nno|o-define|
|00000860| 20 28 71 75 6f 74 65 20 | 6e 6e 73 70 6f 6f 6c 2d | (quote |nnspool-|
|00000870| 68 69 73 74 6f 72 79 2d | 66 69 6c 65 29 20 6e 69 |history-|file) ni|
|00000880| 6c 29 0a 23 40 33 30 20 | 4c 6f 63 61 6c 20 6e 65 |l).#@30 |Local ne|
|00000890| 77 73 20 61 63 74 69 76 | 65 20 64 61 74 65 20 66 |ws activ|e date f|
|000008a0| 69 6c 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 6e 6e |ile...(d|efvar nn|
|000008b0| 73 70 6f 6f 6c 2d 61 63 | 74 69 76 65 2d 74 69 6d |spool-ac|tive-tim|
|000008c0| 65 73 2d 66 69 6c 65 20 | 28 63 6f 6e 63 61 74 20 |es-file |(concat |
|000008d0| 6e 6e 73 70 6f 6f 6c 2d | 6c 69 62 2d 64 69 72 20 |nnspool-|lib-dir |
|000008e0| 22 61 63 74 69 76 65 2e | 74 69 6d 65 73 22 29 20 |"active.|times") |
|000008f0| 28 23 24 20 2e 20 32 31 | 38 34 29 29 0a 28 6e 6e |(#$ . 21|84)).(nn|
|00000900| 6f 6f 2d 64 65 66 69 6e | 65 20 28 71 75 6f 74 65 |oo-defin|e (quote|
|00000910| 20 6e 6e 73 70 6f 6f 6c | 2d 61 63 74 69 76 65 2d | nnspool|-active-|
|00000920| 74 69 6d 65 73 2d 66 69 | 6c 65 29 20 6e 69 6c 29 |times-fi|le) nil)|
|00000930| 0a 23 40 31 38 33 20 54 | 68 65 20 6e 75 6d 62 65 |.#@183 T|he numbe|
|00000940| 72 20 6f 66 20 74 68 65 | 20 61 72 74 69 63 6c 65 |r of the| article|
|00000950| 73 20 77 68 69 63 68 20 | 69 6e 64 69 63 61 74 65 |s which |indicate|
|00000960| 73 20 61 20 6c 61 72 67 | 65 20 6e 65 77 73 67 72 |s a larg|e newsgr|
|00000970| 6f 75 70 2e 0a 49 66 20 | 74 68 65 20 6e 75 6d 62 |oup..If |the numb|
|00000980| 65 72 20 6f 66 20 74 68 | 65 20 61 72 74 69 63 6c |er of th|e articl|
|00000990| 65 73 20 69 73 20 67 72 | 65 61 74 65 72 20 74 68 |es is gr|eater th|
|000009a0| 61 6e 20 74 68 65 20 76 | 61 6c 75 65 2c 20 76 65 |an the v|alue, ve|
|000009b0| 72 62 6f 73 65 0a 6d 65 | 73 73 61 67 65 73 20 77 |rbose.me|ssages w|
|000009c0| 69 6c 6c 20 62 65 20 73 | 68 6f 77 6e 20 74 6f 20 |ill be s|hown to |
|000009d0| 69 6e 64 69 63 61 74 65 | 20 74 68 65 20 63 75 72 |indicate| the cur|
|000009e0| 72 65 6e 74 20 73 74 61 | 74 75 73 2e 1f 0a 28 64 |rent sta|tus...(d|
|000009f0| 65 66 76 61 72 20 6e 6e | 73 70 6f 6f 6c 2d 6c 61 |efvar nn|spool-la|
|00000a00| 72 67 65 2d 6e 65 77 73 | 67 72 6f 75 70 20 35 30 |rge-news|group 50|
|00000a10| 20 28 23 24 20 2e 20 32 | 33 35 39 29 29 0a 28 6e | (#$ . 2|359)).(n|
|00000a20| 6e 6f 6f 2d 64 65 66 69 | 6e 65 20 28 71 75 6f 74 |noo-defi|ne (quot|
|00000a30| 65 20 6e 6e 73 70 6f 6f | 6c 2d 6c 61 72 67 65 2d |e nnspoo|l-large-|
|00000a40| 6e 65 77 73 67 72 6f 75 | 70 29 20 6e 69 6c 29 0a |newsgrou|p) nil).|
|00000a50| 23 40 37 36 20 4e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |#@76 Non|-nil mea|
|00000a60| 6e 73 20 74 68 61 74 20 | 6e 6e 73 70 6f 6f 6c 20 |ns that |nnspool |
|00000a70| 77 69 6c 6c 20 6e 65 76 | 65 72 20 72 65 74 75 72 |will nev|er retur|
|00000a80| 6e 20 4e 4f 56 20 6c 69 | 6e 65 73 20 69 6e 73 74 |n NOV li|nes inst|
|00000a90| 65 61 64 20 6f 66 20 68 | 65 61 64 65 72 73 2e 1f |ead of h|eaders..|
|00000aa0| 0a 28 64 65 66 76 61 72 | 20 6e 6e 73 70 6f 6f 6c |.(defvar| nnspool|
|00000ab0| 2d 6e 6f 76 2d 69 73 2d | 65 76 69 6c 20 6e 69 6c |-nov-is-|evil nil|
|00000ac0| 20 28 23 24 20 2e 20 32 | 36 34 35 29 29 0a 28 6e | (#$ . 2|645)).(n|
|00000ad0| 6e 6f 6f 2d 64 65 66 69 | 6e 65 20 28 71 75 6f 74 |noo-defi|ne (quot|
|00000ae0| 65 20 6e 6e 73 70 6f 6f | 6c 2d 6e 6f 76 2d 69 73 |e nnspoo|l-nov-is|
|00000af0| 2d 65 76 69 6c 29 20 6e | 69 6c 29 0a 23 40 31 35 |-evil) n|il).#@15|
|00000b00| 31 20 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 75 73 |1 If non|-nil, us|
|00000b10| 65 20 73 65 64 20 74 6f | 20 67 65 74 20 74 68 65 |e sed to| get the|
|00000b20| 20 72 65 6c 65 76 61 6e | 74 20 70 6f 72 74 69 6f | relevan|t portio|
|00000b30| 6e 20 66 72 6f 6d 20 74 | 68 65 20 6f 76 65 72 76 |n from t|he overv|
|00000b40| 69 65 77 20 66 69 6c 65 | 2e 0a 49 66 20 6e 69 6c |iew file|..If nil|
|00000b50| 2c 20 6e 6e 73 70 6f 6f | 6c 20 77 69 6c 6c 20 6c |, nnspoo|l will l|
|00000b60| 6f 61 64 20 74 68 65 20 | 65 6e 74 69 72 65 20 66 |oad the |entire f|
|00000b70| 69 6c 65 20 69 6e 74 6f | 20 61 20 62 75 66 66 65 |ile into| a buffe|
|00000b80| 72 20 61 6e 64 20 70 72 | 6f 63 65 73 73 20 69 74 |r and pr|ocess it|
|00000b90| 0a 74 68 65 72 65 2e 1f | 0a 28 64 65 66 63 6f 6e |.there..|.(defcon|
|00000ba0| 73 74 20 6e 6e 73 70 6f | 6f 6c 2d 73 69 66 74 2d |st nnspo|ol-sift-|
|00000bb0| 6e 6f 76 2d 77 69 74 68 | 2d 73 65 64 20 6e 69 6c |nov-with|-sed nil|
|00000bc0| 20 28 23 24 20 2e 20 32 | 38 31 38 29 29 0a 23 40 | (#$ . 2|818)).#@|
|00000bd0| 37 35 20 2a 41 20 68 6f | 6f 6b 20 74 68 61 74 20 |75 *A ho|ok that |
|00000be0| 77 69 6c 6c 20 62 65 20 | 72 75 6e 20 77 68 65 6e |will be |run when|
|00000bf0| 20 61 6e 20 61 72 74 69 | 63 6c 65 20 68 61 73 20 | an arti|cle has |
|00000c00| 62 65 65 6e 20 72 65 6a | 65 63 74 65 64 20 62 79 |been rej|ected by|
|00000c10| 20 74 68 65 20 73 65 72 | 76 65 72 2e 1f 0a 28 64 | the ser|ver...(d|
|00000c20| 65 66 76 61 72 20 6e 6e | 73 70 6f 6f 6c 2d 72 65 |efvar nn|spool-re|
|00000c30| 6a 65 63 74 65 64 2d 61 | 72 74 69 63 6c 65 2d 68 |jected-a|rticle-h|
|00000c40| 6f 6f 6b 20 6e 69 6c 20 | 28 23 24 20 2e 20 2d 33 |ook nil |(#$ . -3|
|00000c50| 30 32 37 29 29 0a 28 6e | 6e 6f 6f 2d 64 65 66 69 |027)).(n|noo-defi|
|00000c60| 6e 65 20 28 71 75 6f 74 | 65 20 6e 6e 73 70 6f 6f |ne (quot|e nnspoo|
|00000c70| 6c 2d 72 65 6a 65 63 74 | 65 64 2d 61 72 74 69 63 |l-reject|ed-artic|
|00000c80| 6c 65 2d 68 6f 6f 6b 29 | 20 6e 69 6c 29 0a 23 40 |le-hook)| nil).#@|
|00000c90| 34 35 20 56 65 72 73 69 | 6f 6e 20 6e 75 6d 62 65 |45 Versi|on numbe|
|00000ca0| 72 73 20 6f 66 20 74 68 | 69 73 20 76 65 72 73 69 |rs of th|is versi|
|00000cb0| 6f 6e 20 6f 66 20 4e 4e | 53 50 4f 4f 4c 2e 1f 0a |on of NN|SPOOL...|
|00000cc0| 28 64 65 66 63 6f 6e 73 | 74 20 6e 6e 73 70 6f 6f |(defcons|t nnspoo|
|00000cd0| 6c 2d 76 65 72 73 69 6f | 6e 20 22 6e 6e 73 70 6f |l-versio|n "nnspo|
|00000ce0| 6f 6c 20 32 2e 30 22 20 | 28 23 24 20 2e 20 33 32 |ol 2.0" |(#$ . 32|
|00000cf0| 31 39 29 29 0a 23 40 33 | 31 20 43 75 72 72 65 6e |19)).#@3|1 Curren|
|00000d00| 74 20 6e 65 77 73 20 67 | 72 6f 75 70 20 64 69 72 |t news g|roup dir|
|00000d10| 65 63 74 6f 72 79 2e 1f | 0a 28 64 65 66 76 61 72 |ectory..|.(defvar|
|00000d20| 20 6e 6e 73 70 6f 6f 6c | 2d 63 75 72 72 65 6e 74 | nnspool|-current|
|00000d30| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 69 6c 20 28 |-directo|ry nil (|
|00000d40| 23 24 20 2e 20 33 33 32 | 32 29 29 0a 28 62 79 74 |#$ . 332|2)).(byt|
|00000d50| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c3 c4 |e-code "|...\"...|
|00000d60| 21 84 0d 00 c2 14 c4 0d | 42 15 c0 c4 c2 5c 22 88 |!.......|B....\".|
|00000d70| c3 c6 21 84 1f 00 c7 16 | 06 c6 0d 42 15 c0 c6 c2 |..!.....|...B....|
|00000d80| 5c 22 88 c8 c9 21 87 22 | 20 5b 6e 6e 6f 6f 2d 64 |\"...!."| [nnoo-d|
|00000d90| 65 66 69 6e 65 20 6e 6e | 73 70 6f 6f 6c 2d 63 75 |efine nn|spool-cu|
|00000da0| 72 72 65 6e 74 2d 64 69 | 72 65 63 74 6f 72 79 20 |rrent-di|rectory |
|00000db0| 6e 69 6c 20 62 6f 75 6e | 64 70 20 6e 6e 73 70 6f |nil boun|dp nnspo|
|00000dc0| 6f 6c 2d 63 75 72 72 65 | 6e 74 2d 67 72 6f 75 70 |ol-curre|nt-group|
|00000dd0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000de0| 73 74 20 6e 6e 73 70 6f | 6f 6c 2d 73 74 61 74 75 |st nnspo|ol-statu|
|00000df0| 73 2d 73 74 72 69 6e 67 | 20 22 22 20 6e 6e 6f 6f |s-string| "" nnoo|
|00000e00| 2d 64 65 66 69 6e 65 2d | 62 61 73 69 63 73 2d 31 |-define-|basics-1|
|00000e10| 20 6e 6e 73 70 6f 6f 6c | 5d 20 33 29 0a 23 40 33 | nnspool|] 3).#@3|
|00000e20| 35 20 52 65 74 72 69 65 | 76 65 20 74 68 65 20 68 |5 Retrie|ve the h|
|00000e30| 65 61 64 65 72 73 20 6f | 66 20 41 52 54 49 43 4c |eaders o|f ARTICL|
|00000e40| 45 53 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ES...(de|falias '|
|00000e50| 6e 6e 73 70 6f 6f 6c 2d | 72 65 74 72 69 65 76 65 |nnspool-|retrieve|
|00000e60| 2d 68 65 61 64 65 72 73 | 20 23 5b 28 61 72 74 69 |-headers| #[(arti|
|00000e70| 63 6c 65 73 20 26 6f 70 | 74 69 6f 6e 61 6c 20 67 |cles &op|tional g|
|00000e80| 72 6f 75 70 20 73 65 72 | 76 65 72 20 66 65 74 63 |roup ser|ver fetc|
|00000e90| 68 2d 6f 6c 64 29 20 22 | 8a 08 71 88 c1 20 88 c2 |h-old) "|..q.. ..|
|00000ea0| 0b 21 85 25 01 5c 66 47 | 1d c6 1e 07 0e 08 1e 09 |.!.%.\fG|........|
|00000eb0| 0e 5c 6e a7 85 21 00 0d | 0e 5c 6e 56 1e 0b cc 1e |.\n..!..|.\nV....|
|00000ec0| 0d cc 1e 0e cc 1e 0f cc | 1e 10 5c 66 40 a7 83 41 |........|..\f@..A|
|00000ed0| 00 d1 5c 66 0e 12 5c 22 | 83 41 00 d3 82 23 01 5c |..\f..\"|.A...#.\|
|00000ee0| 66 89 41 14 40 89 16 0f | 83 16 01 0e 0f 3b 83 6e |f.A.@...|.....;.n|
|00000ef0| 00 d4 0e 0f 21 89 16 10 | 85 64 00 d5 0e 10 40 0e |....!...|.d....@.|
|00000f00| 10 41 5c 22 16 0d 0e 10 | 41 16 0f 82 74 00 d6 0e |.A\"....|A...t...|
|00000f10| 0f 21 16 0d 0e 0d 83 f7 | 00 d7 0e 0d 21 83 f7 00 |.!......|....!...|
|00000f20| d8 63 88 d9 0e 0f 70 5c | 22 88 da 63 88 60 16 0e |.c....p\|"..c.`..|
|00000f30| 0e 0d 1e 0d d7 0e 0d 21 | 83 e2 00 0e 1b dc 3d 83 |.......!|......=.|
|00000f40| a9 00 dd 0e 0d 21 88 82 | e2 00 c6 cc de 1e 1f 1e |.....!..|........|
|00000f50| 20 1e 0e 0e 1f e1 0e 0d | cc 0e 0e 89 0e 1f 5c 5c | .......|......\\|
|00000f60| 89 16 0e 24 41 40 3d 83 | e1 00 e2 e3 cc dc 23 3f |...$A@=.|......#?|
|00000f70| 64 62 88 83 e1 00 0e 1b | 83 b2 00 0e 0e 0e 1b 57 |db......|.......W|
|00000f80| 84 b2 00 2b 29 0e 0e 62 | 88 e2 e3 cc dc 23 88 e4 |...+)..b|.....#..|
|00000f90| 75 88 e5 63 88 60 64 7c | 88 0e 0b 83 41 00 0e 07 |u..c.`d||....A...|
|00000fa0| 54 89 16 07 e6 a6 c6 55 | 83 41 00 e7 e8 0e 07 e9 |T......U|.A......|
|00000fb0| 5f 0d a5 5c 22 88 82 41 | 00 0e 0b 83 1f 01 e7 ea |_..\"..A|........|
|00000fc0| 21 88 eb 20 88 ec 2e 08 | 29 87 22 20 5b 6e 6e 74 |!.. ....|)." [nnt|
|00000fd0| 70 2d 73 65 72 76 65 72 | 2d 62 75 66 66 65 72 20 |p-server|-buffer |
|00000fe0| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 6e 6e 73 |erase-bu|ffer nns|
|00000ff0| 70 6f 6f 6c 2d 70 6f 73 | 73 69 62 6c 79 2d 63 68 |pool-pos|sibly-ch|
|00001000| 61 6e 67 65 2d 64 69 72 | 65 63 74 6f 72 79 20 67 |ange-dir|ectory g|
|00001010| 72 6f 75 70 20 61 72 74 | 69 63 6c 65 73 20 6e 75 |roup art|icles nu|
|00001020| 6d 62 65 72 20 30 20 63 | 6f 75 6e 74 20 6e 6e 73 |mber 0 c|ount nns|
|00001030| 70 6f 6f 6c 2d 63 75 72 | 72 65 6e 74 2d 64 69 72 |pool-cur|rent-dir|
|00001040| 65 63 74 6f 72 79 20 64 | 65 66 61 75 6c 74 2d 64 |ectory d|efault-d|
|00001050| 69 72 65 63 74 6f 72 79 | 20 6e 6e 73 70 6f 6f 6c |irectory| nnspool|
|00001060| 2d 6c 61 72 67 65 2d 6e | 65 77 73 67 72 6f 75 70 |-large-n|ewsgroup|
|00001070| 20 64 6f 2d 6d 65 73 73 | 61 67 65 20 6e 69 6c 20 | do-mess|age nil |
|00001080| 66 69 6c 65 20 62 65 67 | 20 61 72 74 69 63 6c 65 |file beg| article|
|00001090| 20 61 67 20 6e 6e 73 70 | 6f 6f 6c 2d 72 65 74 72 | ag nnsp|ool-retr|
|000010a0| 69 65 76 65 2d 68 65 61 | 64 65 72 73 2d 77 69 74 |ieve-hea|ders-wit|
|000010b0| 68 2d 6e 6f 76 20 66 65 | 74 63 68 2d 6f 6c 64 20 |h-nov fe|tch-old |
|000010c0| 6e 6f 76 20 6e 6e 73 70 | 6f 6f 6c 2d 66 69 6e 64 |nov nnsp|ool-find|
|000010d0| 2d 69 64 20 6e 6e 73 70 | 6f 6f 6c 2d 61 72 74 69 |-id nnsp|ool-arti|
|000010e0| 63 6c 65 2d 70 61 74 68 | 6e 61 6d 65 20 69 6e 74 |cle-path|name int|
|000010f0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 66 69 6c 65 2d |-to-stri|ng file-|
|00001100| 65 78 69 73 74 73 2d 70 | 20 22 32 32 31 20 22 20 |exists-p| "221 " |
|00001110| 70 72 69 6e 63 20 22 20 | 41 72 74 69 63 6c 65 20 |princ " |Article |
|00001120| 72 65 74 72 69 65 76 65 | 64 2e 5c 6e 22 20 6e 6e |retrieve|d.\n" nn|
|00001130| 68 65 61 64 65 72 2d 6d | 61 78 2d 68 65 61 64 2d |header-m|ax-head-|
|00001140| 6c 65 6e 67 74 68 20 74 | 20 6e 6e 68 65 61 64 65 |length t| nnheade|
|00001150| 72 2d 69 6e 73 65 72 74 | 2d 66 69 6c 65 2d 63 6f |r-insert|-file-co|
|00001160| 6e 74 65 6e 74 73 2d 6c | 69 74 65 72 61 6c 6c 79 |ntents-l|iterally|
|00001170| 20 31 30 32 34 20 63 68 | 6f 70 20 66 6f 72 6d 61 | 1024 ch|op forma|
|00001180| 74 2d 61 6c 69 73 74 20 | 69 6e 73 65 72 74 2d 66 |t-alist |insert-f|
|00001190| 69 6c 65 2d 63 6f 6e 74 | 65 6e 74 73 20 73 65 61 |ile-cont|ents sea|
|000011a0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 6e 5c |rch-forw|ard "\n\|
|000011b0| 6e 22 20 2d 31 20 22 2e | 5c 6e 22 20 32 30 20 6d |n" -1 ".|\n" 20 m|
|000011c0| 65 73 73 61 67 65 20 22 | 6e 6e 73 70 6f 6f 6c 3a |essage "|nnspool:|
|000011d0| 20 52 65 63 65 69 76 69 | 6e 67 20 68 65 61 64 65 | Receivi|ng heade|
|000011e0| 72 73 2e 2e 2e 20 25 64 | 25 25 22 20 31 30 30 20 |rs... %d|%%" 100 |
|000011f0| 22 6e 6e 73 70 6f 6f 6c | 3a 20 52 65 63 65 69 76 |"nnspool|: Receiv|
|00001200| 69 6e 67 20 68 65 61 64 | 65 72 73 2e 2e 2e 64 6f |ing head|ers...do|
|00001210| 6e 65 22 20 6e 6e 68 65 | 61 64 65 72 2d 66 6f 6c |ne" nnhe|ader-fol|
|00001220| 64 2d 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 2d 6c |d-contin|uation-l|
|00001230| 69 6e 65 73 20 68 65 61 | 64 65 72 73 5d 20 38 20 |ines hea|ders] 8 |
|00001240| 28 23 24 20 2e 20 33 36 | 31 38 29 5d 29 0a 28 6e |(#$ . 36|18)]).(n|
|00001250| 6e 6f 6f 2d 72 65 67 69 | 73 74 65 72 2d 66 75 6e |noo-regi|ster-fun|
|00001260| 63 74 69 6f 6e 20 28 71 | 75 6f 74 65 20 6e 6e 73 |ction (q|uote nns|
|00001270| 70 6f 6f 6c 2d 72 65 74 | 72 69 65 76 65 2d 68 65 |pool-ret|rieve-he|
|00001280| 61 64 65 72 73 29 29 0a | 28 64 65 66 61 6c 69 61 |aders)).|(defalia|
|00001290| 73 20 27 6e 6e 73 70 6f | 6f 6c 2d 6f 70 65 6e 2d |s 'nnspo|ol-open-|
|000012a0| 73 65 72 76 65 72 20 23 | 5b 28 73 65 72 76 65 72 |server #|[(server|
|000012b0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 64 65 66 73 29 | &option|al defs)|
|000012c0| 20 22 c0 c1 5c 6e 0b 23 | 88 c4 0d 21 84 15 00 c6 | "..\n.#|...!....|
|000012d0| 20 88 c7 c1 c8 0d 23 87 | c9 ca cb 0d 21 21 21 84 | .....#.|....!!!.|
|000012e0| 28 00 c6 20 88 c7 c1 cc | 0d 23 87 c4 0e 0d 21 84 |(.. ....|.#....!.|
|000012f0| 36 00 c7 c1 ce 0e 0d 23 | 87 c7 c1 cf 5c 6e 0d 24 |6......#|....\n.$|
|00001300| 88 d0 87 22 20 5b 6e 6e | 6f 6f 2d 63 68 61 6e 67 |..." [nn|oo-chang|
|00001310| 65 2d 73 65 72 76 65 72 | 20 6e 6e 73 70 6f 6f 6c |e-server| nnspool|
|00001320| 20 73 65 72 76 65 72 20 | 64 65 66 73 20 66 69 6c | server |defs fil|
|00001330| 65 2d 65 78 69 73 74 73 | 2d 70 20 6e 6e 73 70 6f |e-exists|-p nnspo|
|00001340| 6f 6c 2d 73 70 6f 6f 6c | 2d 64 69 72 65 63 74 6f |ol-spool|-directo|
|00001350| 72 79 20 6e 6e 73 70 6f | 6f 6c 2d 63 6c 6f 73 65 |ry nnspo|ol-close|
|00001360| 2d 73 65 72 76 65 72 20 | 6e 6e 68 65 61 64 65 72 |-server |nnheader|
|00001370| 2d 72 65 70 6f 72 74 20 | 22 53 70 6f 6f 6c 20 64 |-report |"Spool d|
|00001380| 69 72 65 63 74 6f 72 79 | 20 64 6f 65 73 6e 27 74 |irectory| doesn't|
|00001390| 20 65 78 69 73 74 3a 20 | 25 73 22 20 66 69 6c 65 | exist: |%s" file|
|000013a0| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 64 69 72 |-directo|ry-p dir|
|000013b0| 65 63 74 6f 72 79 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ectory-f|ile-name|
|000013c0| 20 66 69 6c 65 2d 74 72 | 75 65 6e 61 6d 65 20 22 | file-tr|uename "|
|000013d0| 4e 6f 74 20 61 20 64 69 | 72 65 63 74 6f 72 79 3a |Not a di|rectory:|
|000013e0| 20 25 73 22 20 6e 6e 73 | 70 6f 6f 6c 2d 61 63 74 | %s" nns|pool-act|
|000013f0| 69 76 65 2d 66 69 6c 65 | 20 22 54 68 65 20 61 63 |ive-file| "The ac|
|00001400| 74 69 76 65 20 66 69 6c | 65 20 64 6f 65 73 6e 27 |tive fil|e doesn'|
|00001410| 74 20 65 78 69 73 74 3a | 20 25 73 22 20 22 4f 70 |t exist:| %s" "Op|
|00001420| 65 6e 65 64 20 73 65 72 | 76 65 72 20 25 73 20 75 |ened ser|ver %s u|
|00001430| 73 69 6e 67 20 64 69 72 | 65 63 74 6f 72 79 20 25 |sing dir|ectory %|
|00001440| 73 22 20 74 5d 20 35 5d | 29 0a 28 6e 6e 6f 6f 2d |s" t] 5]|).(nnoo-|
|00001450| 72 65 67 69 73 74 65 72 | 2d 66 75 6e 63 74 69 6f |register|-functio|
|00001460| 6e 20 28 71 75 6f 74 65 | 20 6e 6e 73 70 6f 6f 6c |n (quote| nnspool|
|00001470| 2d 6f 70 65 6e 2d 73 65 | 72 76 65 72 29 29 0a 23 |-open-se|rver)).#|
|00001480| 40 34 33 20 53 65 6c 65 | 63 74 20 61 72 74 69 63 |@43 Sele|ct artic|
|00001490| 6c 65 20 62 79 20 6d 65 | 73 73 61 67 65 20 49 44 |le by me|ssage ID|
|000014a0| 20 28 6f 72 20 6e 75 6d | 62 65 72 29 2e 1f 0a 28 | (or num|ber)...(|
|000014b0| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 73 70 6f 6f |defalias| 'nnspoo|
|000014c0| 6c 2d 72 65 71 75 65 73 | 74 2d 61 72 74 69 63 6c |l-reques|t-articl|
|000014d0| 65 20 23 5b 28 69 64 20 | 26 6f 70 74 69 6f 6e 61 |e #[(id |&optiona|
|000014e0| 6c 20 67 72 6f 75 70 20 | 73 65 72 76 65 72 20 62 |l group |server b|
|000014f0| 75 66 66 65 72 29 20 22 | c0 09 21 88 5c 6e 86 09 |uffer) "|..!.\n..|
|00001500| 00 0b c4 89 1d 1e 06 1b | 0e 07 3b 83 29 00 c8 0e |........|..;.)...|
|00001510| 07 21 89 15 83 31 00 c9 | 0d 40 0d 41 5c 22 16 06 |.!...1..|.@.A\"..|
|00001520| 82 31 00 c9 0e 5c 6e 0e | 07 5c 22 16 06 0e 06 85 |.1...\n.|.\".....|
|00001530| 5d 00 cb 0e 06 21 85 5d | 00 cc 0e 06 21 3f 85 5d |]....!.]|....!?.]|
|00001540| 00 8a cd 0e 06 21 29 85 | 5d 00 0e 07 a7 83 5c 5c |.....!).|].....\\|
|00001550| 00 0e 5c 6e 0e 07 42 82 | 5d 00 0d 2b 87 22 20 5b |..\n..B.|]..+." [|
|00001560| 6e 6e 73 70 6f 6f 6c 2d | 70 6f 73 73 69 62 6c 79 |nnspool-|possibly|
|00001570| 2d 63 68 61 6e 67 65 2d | 64 69 72 65 63 74 6f 72 |-change-|director|
|00001580| 79 20 67 72 6f 75 70 20 | 62 75 66 66 65 72 20 6e |y group |buffer n|
|00001590| 6e 74 70 2d 73 65 72 76 | 65 72 2d 62 75 66 66 65 |ntp-serv|er-buffe|
|000015a0| 72 20 6e 69 6c 20 61 67 | 20 66 69 6c 65 20 69 64 |r nil ag| file id|
|000015b0| 20 6e 6e 73 70 6f 6f 6c | 2d 66 69 6e 64 2d 69 64 | nnspool|-find-id|
|000015c0| 20 6e 6e 73 70 6f 6f 6c | 2d 61 72 74 69 63 6c 65 | nnspool|-article|
|000015d0| 2d 70 61 74 68 6e 61 6d | 65 20 6e 6e 73 70 6f 6f |-pathnam|e nnspoo|
|000015e0| 6c 2d 63 75 72 72 65 6e | 74 2d 67 72 6f 75 70 20 |l-curren|t-group |
|000015f0| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 66 69 |file-exi|sts-p fi|
|00001600| 6c 65 2d 64 69 72 65 63 | 74 6f 72 79 2d 70 20 6e |le-direc|tory-p n|
|00001610| 6e 73 70 6f 6f 6c 2d 66 | 69 6e 64 2d 66 69 6c 65 |nspool-f|ind-file|
|00001620| 5d 20 33 20 28 23 24 20 | 2e 20 35 32 35 32 29 5d |] 3 (#$ |. 5252)]|
|00001630| 29 0a 28 6e 6e 6f 6f 2d | 72 65 67 69 73 74 65 72 |).(nnoo-|register|
|00001640| 2d 66 75 6e 63 74 69 6f | 6e 20 28 71 75 6f 74 65 |-functio|n (quote|
|00001650| 20 6e 6e 73 70 6f 6f 6c | 2d 72 65 71 75 65 73 74 | nnspool|-request|
|00001660| 2d 61 72 74 69 63 6c 65 | 29 29 0a 23 40 34 38 20 |-article|)).#@48 |
|00001670| 53 65 6c 65 63 74 20 61 | 72 74 69 63 6c 65 20 62 |Select a|rticle b|
|00001680| 6f 64 79 20 62 79 20 6d | 65 73 73 61 67 65 20 49 |ody by m|essage I|
|00001690| 44 20 28 6f 72 20 6e 75 | 6d 62 65 72 29 2e 1f 0a |D (or nu|mber)...|
|000016a0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 73 70 6f |(defalia|s 'nnspo|
|000016b0| 6f 6c 2d 72 65 71 75 65 | 73 74 2d 62 6f 64 79 20 |ol-reque|st-body |
|000016c0| 23 5b 28 69 64 20 26 6f | 70 74 69 6f 6e 61 6c 20 |#[(id &o|ptional |
|000016d0| 67 72 6f 75 70 20 73 65 | 72 76 65 72 29 20 22 c0 |group se|rver) ".|
|000016e0| 09 21 88 c2 0b 21 89 1c | 85 21 00 8a 0d 71 88 65 |.!...!..|.!...q.e|
|000016f0| 62 88 c6 c7 c8 c9 23 83 | 1f 00 65 60 7c 88 5c 66 |b.....#.|..e`|.\f|
|00001700| 29 29 87 22 20 5b 6e 6e | 73 70 6f 6f 6c 2d 70 6f |))." [nn|spool-po|
|00001710| 73 73 69 62 6c 79 2d 63 | 68 61 6e 67 65 2d 64 69 |ssibly-c|hange-di|
|00001720| 72 65 63 74 6f 72 79 20 | 67 72 6f 75 70 20 6e 6e |rectory |group nn|
|00001730| 73 70 6f 6f 6c 2d 72 65 | 71 75 65 73 74 2d 61 72 |spool-re|quest-ar|
|00001740| 74 69 63 6c 65 20 69 64 | 20 72 65 73 20 6e 6e 74 |ticle id| res nnt|
|00001750| 70 2d 73 65 72 76 65 72 | 2d 62 75 66 66 65 72 20 |p-server|-buffer |
|00001760| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001770| 5c 6e 5c 6e 22 20 6e 69 | 6c 20 74 5d 20 35 20 28 |\n\n" ni|l t] 5 (|
|00001780| 23 24 20 2e 20 35 37 34 | 34 29 5d 29 0a 28 6e 6e |#$ . 574|4)]).(nn|
|00001790| 6f 6f 2d 72 65 67 69 73 | 74 65 72 2d 66 75 6e 63 |oo-regis|ter-func|
|000017a0| 74 69 6f 6e 20 28 71 75 | 6f 74 65 20 6e 6e 73 70 |tion (qu|ote nnsp|
|000017b0| 6f 6f 6c 2d 72 65 71 75 | 65 73 74 2d 62 6f 64 79 |ool-requ|est-body|
|000017c0| 29 29 0a 23 40 34 38 20 | 53 65 6c 65 63 74 20 61 |)).#@48 |Select a|
|000017d0| 72 74 69 63 6c 65 20 68 | 65 61 64 20 62 79 20 6d |rticle h|ead by m|
|000017e0| 65 73 73 61 67 65 20 49 | 44 20 28 6f 72 20 6e 75 |essage I|D (or nu|
|000017f0| 6d 62 65 72 29 2e 1f 0a | 28 64 65 66 61 6c 69 61 |mber)...|(defalia|
|00001800| 73 20 27 6e 6e 73 70 6f | 6f 6c 2d 72 65 71 75 65 |s 'nnspo|ol-reque|
|00001810| 73 74 2d 68 65 61 64 20 | 23 5b 28 69 64 20 26 6f |st-head |#[(id &o|
|00001820| 70 74 69 6f 6e 61 6c 20 | 67 72 6f 75 70 20 73 65 |ptional |group se|
|00001830| 72 76 65 72 29 20 22 c0 | 09 21 88 c2 0b 21 89 1c |rver) ".|.!...!..|
|00001840| 83 24 00 8a 0d 71 88 65 | 62 88 c6 c7 c8 c9 23 83 |.$...q.e|b.....#.|
|00001850| 20 00 60 53 64 7c 88 ca | 20 88 29 5c 66 29 87 22 | .`Sd|..| .)\f)."|
|00001860| 20 5b 6e 6e 73 70 6f 6f | 6c 2d 70 6f 73 73 69 62 | [nnspoo|l-possib|
|00001870| 6c 79 2d 63 68 61 6e 67 | 65 2d 64 69 72 65 63 74 |ly-chang|e-direct|
|00001880| 6f 72 79 20 67 72 6f 75 | 70 20 6e 6e 73 70 6f 6f |ory grou|p nnspoo|
|00001890| 6c 2d 72 65 71 75 65 73 | 74 2d 61 72 74 69 63 6c |l-reques|t-articl|
|000018a0| 65 20 69 64 20 72 65 73 | 20 6e 6e 74 70 2d 73 65 |e id res| nntp-se|
|000018b0| 72 76 65 72 2d 62 75 66 | 66 65 72 20 73 65 61 72 |rver-buf|fer sear|
|000018c0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 6e 5c 6e |ch-forwa|rd "\n\n|
|000018d0| 22 20 6e 69 6c 20 74 20 | 6e 6e 68 65 61 64 65 72 |" nil t |nnheader|
|000018e0| 2d 66 6f 6c 64 2d 63 6f | 6e 74 69 6e 75 61 74 69 |-fold-co|ntinuati|
|000018f0| 6f 6e 2d 6c 69 6e 65 73 | 5d 20 35 20 28 23 24 20 |on-lines|] 5 (#$ |
|00001900| 2e 20 36 30 38 38 29 5d | 29 0a 28 6e 6e 6f 6f 2d |. 6088)]|).(nnoo-|
|00001910| 72 65 67 69 73 74 65 72 | 2d 66 75 6e 63 74 69 6f |register|-functio|
|00001920| 6e 20 28 71 75 6f 74 65 | 20 6e 6e 73 70 6f 6f 6c |n (quote| nnspool|
|00001930| 2d 72 65 71 75 65 73 74 | 2d 68 65 61 64 29 29 0a |-request|-head)).|
|00001940| 23 40 32 30 20 53 65 6c | 65 63 74 20 6e 65 77 73 |#@20 Sel|ect news|
|00001950| 20 47 52 4f 55 50 2e 1f | 0a 28 64 65 66 61 6c 69 | GROUP..|.(defali|
|00001960| 61 73 20 27 6e 6e 73 70 | 6f 6f 6c 2d 72 65 71 75 |as 'nnsp|ool-requ|
|00001970| 65 73 74 2d 67 72 6f 75 | 70 20 23 5b 28 67 72 6f |est-grou|p #[(gro|
|00001980| 75 70 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 65 72 |up &opti|onal ser|
|00001990| 76 65 72 20 64 6f 6e 74 | 2d 63 68 65 63 6b 29 20 |ver dont|-check) |
|000019a0| 22 c0 09 21 c2 1b 1c c5 | 5c 66 21 84 14 00 c6 c7 |"..!....|\f!.....|
|000019b0| c8 09 23 82 66 00 5c 66 | 16 09 c6 c7 ca 09 23 88 |..#.f.\f|......#.|
|000019c0| 0e 0b 83 2c 00 c6 c7 ca | 09 23 88 cc 82 66 00 cd |...,....|.#...f..|
|000019d0| 5c 66 c2 ce cc 24 89 13 | 83 3f 00 cf d0 d1 0b 5c |\f...$..|.?.....\|
|000019e0| 22 d2 5c 22 13 0b 83 5c | 5c 00 d3 d4 0b 47 0b 40 |".\"...\|\....G.@|
|000019f0| 0b 41 83 55 00 0b 41 89 | 13 82 4a 00 0b 40 09 25 |.A.U..A.|..J..@.%|
|00001a00| 82 66 00 c6 c7 d5 09 23 | 88 d3 d6 09 5c 22 2a 87 |.f.....#|....\"*.|
|00001a10| 22 20 5b 6e 6e 73 70 6f | 6f 6c 2d 61 72 74 69 63 |" [nnspo|ol-artic|
|00001a20| 6c 65 2d 70 61 74 68 6e | 61 6d 65 20 67 72 6f 75 |le-pathn|ame grou|
|00001a30| 70 20 6e 69 6c 20 64 69 | 72 20 70 61 74 68 6e 61 |p nil di|r pathna|
|00001a40| 6d 65 20 66 69 6c 65 2d | 64 69 72 65 63 74 6f 72 |me file-|director|
|00001a50| 79 2d 70 20 6e 6e 68 65 | 61 64 65 72 2d 72 65 70 |y-p nnhe|ader-rep|
|00001a60| 6f 72 74 20 6e 6e 73 70 | 6f 6f 6c 20 22 49 6e 76 |ort nnsp|ool "Inv|
|00001a70| 61 6c 69 64 20 67 72 6f | 75 70 20 6e 61 6d 65 20 |alid gro|up name |
|00001a80| 28 6e 6f 20 73 75 63 68 | 20 64 69 72 65 63 74 6f |(no such| directo|
|00001a90| 72 79 29 3a 20 25 73 22 | 20 6e 6e 73 70 6f 6f 6c |ry): %s"| nnspool|
|00001aa0| 2d 63 75 72 72 65 6e 74 | 2d 64 69 72 65 63 74 6f |-current|-directo|
|00001ab0| 72 79 20 22 53 65 6c 65 | 63 74 65 64 20 67 72 6f |ry "Sele|cted gro|
|00001ac0| 75 70 20 25 73 22 20 64 | 6f 6e 74 2d 63 68 65 63 |up %s" d|ont-chec|
|00001ad0| 6b 20 74 20 64 69 72 65 | 63 74 6f 72 79 2d 66 69 |k t dire|ctory-fi|
|00001ae0| 6c 65 73 20 22 5e 5b 30 | 2d 39 5d 2b 24 22 20 73 |les "^[0|-9]+$" s|
|00001af0| 6f 72 74 20 6d 61 70 63 | 61 72 20 23 5b 28 6e 61 |ort mapc|ar #[(na|
|00001b00| 6d 65 29 20 22 c0 09 21 | 87 22 20 5b 73 74 72 69 |me) "..!|." [stri|
|00001b10| 6e 67 2d 74 6f 2d 69 6e | 74 20 6e 61 6d 65 5d 20 |ng-to-in|t name] |
|00001b20| 32 5d 20 3c 20 6e 6e 68 | 65 61 64 65 72 2d 69 6e |2] < nnh|eader-in|
|00001b30| 73 65 72 74 20 22 32 31 | 31 20 25 64 20 25 64 20 |sert "21|1 %d %d |
|00001b40| 25 64 20 25 73 5c 6e 22 | 20 22 45 6d 70 74 79 20 |%d %s\n"| "Empty |
|00001b50| 67 72 6f 75 70 20 25 73 | 22 20 22 32 31 31 20 30 |group %s|" "211 0|
|00001b60| 20 30 20 30 20 25 73 5c | 6e 22 5d 20 37 20 28 23 | 0 0 %s\|n"] 7 (#|
|00001b70| 24 20 2e 20 36 34 36 39 | 29 5d 29 0a 28 6e 6e 6f |$ . 6469|)]).(nno|
|00001b80| 6f 2d 72 65 67 69 73 74 | 65 72 2d 66 75 6e 63 74 |o-regist|er-funct|
|00001b90| 69 6f 6e 20 28 71 75 6f | 74 65 20 6e 6e 73 70 6f |ion (quo|te nnspo|
|00001ba0| 6f 6c 2d 72 65 71 75 65 | 73 74 2d 67 72 6f 75 70 |ol-reque|st-group|
|00001bb0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |)).(defa|lias 'nn|
|00001bc0| 73 70 6f 6f 6c 2d 72 65 | 71 75 65 73 74 2d 74 79 |spool-re|quest-ty|
|00001bd0| 70 65 20 23 5b 28 67 72 | 6f 75 70 20 26 6f 70 74 |pe #[(gr|oup &opt|
|00001be0| 69 6f 6e 61 6c 20 61 72 | 74 69 63 6c 65 29 20 22 |ional ar|ticle) "|
|00001bf0| c0 87 22 20 5b 6e 65 77 | 73 5d 20 31 5d 29 0a 28 |.." [new|s] 1]).(|
|00001c00| 6e 6e 6f 6f 2d 72 65 67 | 69 73 74 65 72 2d 66 75 |nnoo-reg|ister-fu|
|00001c10| 6e 63 74 69 6f 6e 20 28 | 71 75 6f 74 65 20 6e 6e |nction (|quote nn|
|00001c20| 73 70 6f 6f 6c 2d 72 65 | 71 75 65 73 74 2d 74 79 |spool-re|quest-ty|
|00001c30| 70 65 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |pe)).(de|falias '|
|00001c40| 6e 6e 73 70 6f 6f 6c 2d | 63 6c 6f 73 65 2d 67 72 |nnspool-|close-gr|
|00001c50| 6f 75 70 20 23 5b 28 67 | 72 6f 75 70 20 26 6f 70 |oup #[(g|roup &op|
|00001c60| 74 69 6f 6e 61 6c 20 73 | 65 72 76 65 72 29 20 22 |tional s|erver) "|
|00001c70| c0 87 22 20 5b 74 5d 20 | 31 5d 29 0a 28 6e 6e 6f |.." [t] |1]).(nno|
|00001c80| 6f 2d 72 65 67 69 73 74 | 65 72 2d 66 75 6e 63 74 |o-regist|er-funct|
|00001c90| 69 6f 6e 20 28 71 75 6f | 74 65 20 6e 6e 73 70 6f |ion (quo|te nnspo|
|00001ca0| 6f 6c 2d 63 6c 6f 73 65 | 2d 67 72 6f 75 70 29 29 |ol-close|-group))|
|00001cb0| 0a 23 40 32 35 20 4c 69 | 73 74 20 61 63 74 69 76 |.#@25 Li|st activ|
|00001cc0| 65 20 6e 65 77 73 67 72 | 6f 75 70 73 2e 1f 0a 28 |e newsgr|oups...(|
|00001cd0| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 73 70 6f 6f |defalias| 'nnspoo|
|00001ce0| 6c 2d 72 65 71 75 65 73 | 74 2d 6c 69 73 74 20 23 |l-reques|t-list #|
|00001cf0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 65 72 76 |[(&optio|nal serv|
|00001d00| 65 72 29 20 22 8a c0 09 | 21 86 0d 00 c2 c3 c4 09 |er) "...|!.......|
|00001d10| 21 5c 22 29 87 22 20 5b | 6e 6e 73 70 6f 6f 6c 2d |!\")." [|nnspool-|
|00001d20| 66 69 6e 64 2d 66 69 6c | 65 20 6e 6e 73 70 6f 6f |find-fil|e nnspoo|
|00001d30| 6c 2d 61 63 74 69 76 65 | 2d 66 69 6c 65 20 6e 6e |l-active|-file nn|
|00001d40| 68 65 61 64 65 72 2d 72 | 65 70 6f 72 74 20 6e 6e |header-r|eport nn|
|00001d50| 73 70 6f 6f 6c 20 6e 6e | 68 65 61 64 65 72 2d 66 |spool nn|header-f|
|00001d60| 69 6c 65 2d 65 72 72 6f | 72 5d 20 34 20 28 23 24 |ile-erro|r] 4 (#$|
|00001d70| 20 2e 20 37 33 35 30 29 | 5d 29 0a 28 6e 6e 6f 6f | . 7350)|]).(nnoo|
|00001d80| 2d 72 65 67 69 73 74 65 | 72 2d 66 75 6e 63 74 69 |-registe|r-functi|
|00001d90| 6f 6e 20 28 71 75 6f 74 | 65 20 6e 6e 73 70 6f 6f |on (quot|e nnspoo|
|00001da0| 6c 2d 72 65 71 75 65 73 | 74 2d 6c 69 73 74 29 29 |l-reques|t-list))|
|00001db0| 0a 23 40 33 37 20 4c 69 | 73 74 20 6e 65 77 73 67 |.#@37 Li|st newsg|
|00001dc0| 72 6f 75 70 73 20 28 64 | 65 66 69 6e 65 64 20 69 |roups (d|efined i|
|00001dd0| 6e 20 4e 4e 54 50 32 29 | 2e 1f 0a 28 64 65 66 61 |n NNTP2)|...(defa|
|00001de0| 6c 69 61 73 20 27 6e 6e | 73 70 6f 6f 6c 2d 72 65 |lias 'nn|spool-re|
|00001df0| 71 75 65 73 74 2d 6c 69 | 73 74 2d 6e 65 77 73 67 |quest-li|st-newsg|
|00001e00| 72 6f 75 70 73 20 23 5b | 28 26 6f 70 74 69 6f 6e |roups #[|(&option|
|00001e10| 61 6c 20 73 65 72 76 65 | 72 29 20 22 8a c0 09 21 |al serve|r) "...!|
|00001e20| 86 0d 00 c2 c3 c4 09 21 | 5c 22 29 87 22 20 5b 6e |.......!|\")." [n|
|00001e30| 6e 73 70 6f 6f 6c 2d 66 | 69 6e 64 2d 66 69 6c 65 |nspool-f|ind-file|
|00001e40| 20 6e 6e 73 70 6f 6f 6c | 2d 6e 65 77 73 67 72 6f | nnspool|-newsgro|
|00001e50| 75 70 73 2d 66 69 6c 65 | 20 6e 6e 68 65 61 64 65 |ups-file| nnheade|
|00001e60| 72 2d 72 65 70 6f 72 74 | 20 6e 6e 73 70 6f 6f 6c |r-report| nnspool|
|00001e70| 20 6e 6e 68 65 61 64 65 | 72 2d 66 69 6c 65 2d 65 | nnheade|r-file-e|
|00001e80| 72 72 6f 72 5d 20 34 20 | 28 23 24 20 2e 20 37 36 |rror] 4 |(#$ . 76|
|00001e90| 30 36 29 5d 29 0a 28 6e | 6e 6f 6f 2d 72 65 67 69 |06)]).(n|noo-regi|
|00001ea0| 73 74 65 72 2d 66 75 6e | 63 74 69 6f 6e 20 28 71 |ster-fun|ction (q|
|00001eb0| 75 6f 74 65 20 6e 6e 73 | 70 6f 6f 6c 2d 72 65 71 |uote nns|pool-req|
|00001ec0| 75 65 73 74 2d 6c 69 73 | 74 2d 6e 65 77 73 67 72 |uest-lis|t-newsgr|
|00001ed0| 6f 75 70 73 29 29 0a 23 | 40 34 30 20 4c 69 73 74 |oups)).#|@40 List|
|00001ee0| 20 64 69 73 74 72 69 62 | 75 74 69 6f 6e 73 20 28 | distrib|utions (|
|00001ef0| 64 65 66 69 6e 65 64 20 | 69 6e 20 4e 4e 54 50 32 |defined |in NNTP2|
|00001f00| 29 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |)...(def|alias 'n|
|00001f10| 6e 73 70 6f 6f 6c 2d 72 | 65 71 75 65 73 74 2d 6c |nspool-r|equest-l|
|00001f20| 69 73 74 2d 64 69 73 74 | 72 69 62 75 74 69 6f 6e |ist-dist|ribution|
|00001f30| 73 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |s #[(&op|tional s|
|00001f40| 65 72 76 65 72 29 20 22 | 8a c0 09 21 86 0d 00 c2 |erver) "|...!....|
|00001f50| c3 c4 09 21 5c 22 29 87 | 22 20 5b 6e 6e 73 70 6f |...!\").|" [nnspo|
|00001f60| 6f 6c 2d 66 69 6e 64 2d | 66 69 6c 65 20 6e 6e 73 |ol-find-|file nns|
|00001f70| 70 6f 6f 6c 2d 64 69 73 | 74 72 69 62 75 74 69 6f |pool-dis|tributio|
|00001f80| 6e 73 2d 66 69 6c 65 20 | 6e 6e 68 65 61 64 65 72 |ns-file |nnheader|
|00001f90| 2d 72 65 70 6f 72 74 20 | 6e 6e 73 70 6f 6f 6c 20 |-report |nnspool |
|00001fa0| 6e 6e 68 65 61 64 65 72 | 2d 66 69 6c 65 2d 65 72 |nnheader|-file-er|
|00001fb0| 72 6f 72 5d 20 34 20 28 | 23 24 20 2e 20 37 39 30 |ror] 4 (|#$ . 790|
|00001fc0| 30 29 5d 29 0a 28 6e 6e | 6f 6f 2d 72 65 67 69 73 |0)]).(nn|oo-regis|
|00001fd0| 74 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 28 71 75 |ter-func|tion (qu|
|00001fe0| 6f 74 65 20 6e 6e 73 70 | 6f 6f 6c 2d 72 65 71 75 |ote nnsp|ool-requ|
|00001ff0| 65 73 74 2d 6c 69 73 74 | 2d 64 69 73 74 72 69 62 |est-list|-distrib|
|00002000| 75 74 69 6f 6e 73 29 29 | 0a 23 40 33 33 20 4c 69 |utions))|.#@33 Li|
|00002010| 73 74 20 67 72 6f 75 70 | 73 20 63 72 65 61 74 65 |st group|s create|
|00002020| 64 20 61 66 74 65 72 20 | 44 41 54 45 2e 1f 0a 28 |d after |DATE...(|
|00002030| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 73 70 6f 6f |defalias| 'nnspoo|
|00002040| 6c 2d 72 65 71 75 65 73 | 74 2d 6e 65 77 67 72 6f |l-reques|t-newgro|
|00002050| 75 70 73 20 23 5b 28 64 | 61 74 65 20 26 6f 70 74 |ups #[(d|ate &opt|
|00002060| 69 6f 6e 61 6c 20 73 65 | 72 76 65 72 29 20 22 c0 |ional se|rver) ".|
|00002070| 09 21 85 6a 00 8a 64 62 | 88 c2 c3 21 84 17 00 c4 |.!.j..db|...!....|
|00002080| 79 c5 55 84 5c 6e 00 c6 | 0e 07 21 c8 1e 09 1e 5c |y.U.\n..|..!....\|
|00002090| 6e c2 cb 21 83 50 00 c5 | 95 53 62 88 cc 63 88 cd |n..!.P..|.Sb..c..|
|000020a0| 95 62 88 ce 70 21 0e 5c | 6e 56 83 50 00 cd 94 cd |.b..p!.\|nV.P....|
|000020b0| 95 7b 0e 09 42 89 16 09 | 83 50 00 c4 79 c5 55 84 |.{..B...|.P..y.U.|
|000020c0| 20 00 cf 20 88 0e 09 83 | 68 00 0e 09 40 d0 b1 02 | .. ....|h...@...|
|000020d0| 88 0e 09 41 89 16 09 84 | 58 00 2b d1 87 22 20 5b |...A....|X.+.." [|
|000020e0| 6e 6e 73 70 6f 6f 6c 2d | 66 69 6e 64 2d 66 69 6c |nnspool-|find-fil|
|000020f0| 65 20 6e 6e 73 70 6f 6f | 6c 2d 61 63 74 69 76 65 |e nnspoo|l-active|
|00002100| 2d 74 69 6d 65 73 2d 66 | 69 6c 65 20 6c 6f 6f 6b |-times-f|ile look|
|00002110| 69 6e 67 2d 61 74 20 22 | 5c 5c 28 5b 5e 20 5d 2b |ing-at "|\\([^ ]+|
|00002120| 5c 5c 29 20 2b 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |\\) +\\(|[0-9]+\\|
|00002130| 29 5b 30 2d 39 5d 5b 30 | 2d 39 5d 5b 30 2d 39 5d |)[0-9][0|-9][0-9]|
|00002140| 20 22 20 2d 31 20 30 20 | 6e 6e 73 70 6f 6f 6c 2d | " -1 0 |nnspool-|
|00002150| 73 65 63 6f 6e 64 73 2d | 73 69 6e 63 65 2d 65 70 |seconds-|since-ep|
|00002160| 6f 63 68 20 64 61 74 65 | 20 6e 69 6c 20 67 72 6f |och date| nil gro|
|00002170| 75 70 73 20 73 65 63 6f | 6e 64 73 20 22 5c 5c 28 |ups seco|nds "\\(|
|00002180| 5b 5e 20 5d 2b 5c 5c 29 | 20 2b 5b 30 2d 39 5d 2b |[^ ]+\\)| +[0-9]+|
|00002190| 20 22 20 22 2e 30 22 20 | 31 20 72 65 61 64 20 65 | " ".0" |1 read e|
|000021a0| 72 61 73 65 2d 62 75 66 | 66 65 72 20 22 20 30 20 |rase-buf|fer " 0 |
|000021b0| 30 20 79 5c 6e 22 20 74 | 5d 20 33 20 28 23 24 20 |0 y\n" t|] 3 (#$ |
|000021c0| 2e 20 38 32 30 36 29 5d | 29 0a 28 6e 6e 6f 6f 2d |. 8206)]|).(nnoo-|
|000021d0| 72 65 67 69 73 74 65 72 | 2d 66 75 6e 63 74 69 6f |register|-functio|
|000021e0| 6e 20 28 71 75 6f 74 65 | 20 6e 6e 73 70 6f 6f 6c |n (quote| nnspool|
|000021f0| 2d 72 65 71 75 65 73 74 | 2d 6e 65 77 67 72 6f 75 |-request|-newgrou|
|00002200| 70 73 29 29 0a 23 40 33 | 36 20 50 6f 73 74 20 61 |ps)).#@3|6 Post a|
|00002210| 20 6e 65 77 20 6e 65 77 | 73 20 69 6e 20 63 75 72 | new new|s in cur|
|00002220| 72 65 6e 74 20 62 75 66 | 66 65 72 2e 1f 0a 28 64 |rent buf|fer...(d|
|00002230| 65 66 61 6c 69 61 73 20 | 27 6e 6e 73 70 6f 6f 6c |efalias |'nnspool|
|00002240| 2d 72 65 71 75 65 73 74 | 2d 70 6f 73 74 20 23 5b |-request|-post #[|
|00002250| 28 26 6f 70 74 69 6f 6e | 61 6c 20 73 65 72 76 65 |(&option|al serve|
|00002260| 72 29 20 22 8a c0 19 c2 | c3 21 1c c5 c6 c7 8f 89 |r) "....|.!......|
|00002270| 1e 08 85 29 00 c9 ca cb | 5c 22 88 cc 0e 08 cd 5c |...)....|\".....\|
|00002280| 22 88 ce 0e 08 65 64 23 | 88 c0 cf d0 8f 88 d1 2c |"....ed#|.......,|
|00002290| 87 22 20 5b 6e 69 6c 20 | 70 72 6f 63 65 73 73 2d |." [nil |process-|
|000022a0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 2d 74 79 70 65 20 |connecti|on-type |
|000022b0| 67 65 6e 65 72 61 74 65 | 2d 6e 65 77 2d 62 75 66 |generate|-new-buf|
|000022c0| 66 65 72 20 22 20 2a 6e | 6e 73 70 6f 6f 6c 20 70 |fer " *n|nspool p|
|000022d0| 6f 73 74 2a 22 20 69 6e | 65 77 73 2d 62 75 66 66 |ost*" in|ews-buff|
|000022e0| 65 72 20 65 72 72 20 28 | 62 79 74 65 2d 63 6f 64 |er err (|byte-cod|
|000022f0| 65 20 22 c0 c1 c2 0b 5c | 66 0d 25 87 22 20 5b 61 |e "....\|f.%." [a|
|00002300| 70 70 6c 79 20 73 74 61 | 72 74 2d 70 72 6f 63 65 |pply sta|rt-proce|
|00002310| 73 73 20 22 2a 6e 6e 73 | 70 6f 6f 6c 20 69 6e 65 |ss "*nns|pool ine|
|00002320| 77 73 2a 22 20 69 6e 65 | 77 73 2d 62 75 66 66 65 |ws*" ine|ws-buffe|
|00002330| 72 20 6e 6e 73 70 6f 6f | 6c 2d 69 6e 65 77 73 2d |r nnspoo|l-inews-|
|00002340| 70 72 6f 67 72 61 6d 20 | 6e 6e 73 70 6f 6f 6c 2d |program |nnspool-|
|00002350| 69 6e 65 77 73 2d 73 77 | 69 74 63 68 65 73 5d 20 |inews-sw|itches] |
|00002360| 36 29 20 28 28 65 72 72 | 6f 72 20 28 62 79 74 65 |6) ((err|or (byte|
|00002370| 2d 63 6f 64 65 20 22 c0 | c1 c2 0b 23 87 22 20 5b |-code ".|...#." [|
|00002380| 6e 6e 68 65 61 64 65 72 | 2d 72 65 70 6f 72 74 20 |nnheader|-report |
|00002390| 6e 6e 73 70 6f 6f 6c 20 | 22 69 6e 65 77 73 20 65 |nnspool |"inews e|
|000023a0| 72 72 6f 72 3a 20 25 53 | 22 20 65 72 72 5d 20 34 |rror: %S|" err] 4|
|000023b0| 29 29 29 20 70 72 6f 63 | 20 6e 6e 68 65 61 64 65 |))) proc| nnheade|
|000023c0| 72 2d 72 65 70 6f 72 74 | 20 6e 6e 73 70 6f 6f 6c |r-report| nnspool|
|000023d0| 20 22 22 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d | "" set-|process-|
|000023e0| 73 65 6e 74 69 6e 65 6c | 20 6e 6e 73 70 6f 6f 6c |sentinel| nnspool|
|000023f0| 2d 69 6e 65 77 73 2d 73 | 65 6e 74 69 6e 65 6c 20 |-inews-s|entinel |
|00002400| 70 72 6f 63 65 73 73 2d | 73 65 6e 64 2d 72 65 67 |process-|send-reg|
|00002410| 69 6f 6e 20 28 70 72 6f | 63 65 73 73 2d 73 65 6e |ion (pro|cess-sen|
|00002420| 64 2d 65 6f 66 20 70 72 | 6f 63 29 20 28 28 65 72 |d-eof pr|oc) ((er|
|00002430| 72 6f 72 29 29 20 74 5d | 20 35 20 28 23 24 20 2e |ror)) t]| 5 (#$ .|
|00002440| 20 38 37 31 34 29 5d 29 | 0a 28 6e 6e 6f 6f 2d 72 | 8714)])|.(nnoo-r|
|00002450| 65 67 69 73 74 65 72 2d | 66 75 6e 63 74 69 6f 6e |egister-|function|
|00002460| 20 28 71 75 6f 74 65 20 | 6e 6e 73 70 6f 6f 6c 2d | (quote |nnspool-|
|00002470| 72 65 71 75 65 73 74 2d | 70 6f 73 74 29 29 0a 28 |request-|post)).(|
|00002480| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 73 70 6f 6f |defalias| 'nnspoo|
|00002490| 6c 2d 69 6e 65 77 73 2d | 73 65 6e 74 69 6e 65 6c |l-inews-|sentinel|
|000024a0| 20 23 5b 28 70 72 6f 63 | 20 73 74 61 74 75 73 29 | #[(proc| status)|
|000024b0| 20 22 8a c0 09 21 71 88 | 65 62 88 c2 20 c3 55 84 | "...!q.|eb.. .U.|
|000024c0| 18 00 c4 c5 c6 c7 23 83 | 1e 00 c8 70 21 82 42 00 |......#.|...p!.B.|
|000024d0| c9 ca c6 c7 23 83 2f 00 | cb cc c7 89 23 88 82 1e |....#./.|....#...|
|000024e0| 00 cd ce cf d0 20 23 88 | d1 d2 0e 13 5c 22 88 d4 |..... #.|....\"..|
|000024f0| 20 88 d5 d6 21 29 87 22 | 20 5b 70 72 6f 63 65 73 | ...!)."| [proces|
|00002500| 73 2d 62 75 66 66 65 72 | 20 70 72 6f 63 20 62 75 |s-buffer| proc bu|
|00002510| 66 66 65 72 2d 73 69 7a | 65 20 30 20 73 65 61 72 |ffer-siz|e 0 sear|
|00002520| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 73 70 6f 6f |ch-forwa|rd "spoo|
|00002530| 6c 65 64 22 20 6e 69 6c | 20 74 20 6b 69 6c 6c 2d |led" nil| t kill-|
|00002540| 62 75 66 66 65 72 20 72 | 65 2d 73 65 61 72 63 68 |buffer r|e-search|
|00002550| 2d 66 6f 72 77 61 72 64 | 20 22 5b 20 09 5c 6e 5d |-forward| "[ .\n]|
|00002560| 2b 22 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 |+" repla|ce-match|
|00002570| 20 22 20 22 20 6e 6e 68 | 65 61 64 65 72 2d 72 65 | " " nnh|eader-re|
|00002580| 70 6f 72 74 20 6e 6e 73 | 70 6f 6f 6c 20 22 25 73 |port nns|pool "%s|
|00002590| 22 20 62 75 66 66 65 72 | 2d 73 74 72 69 6e 67 20 |" buffer|-string |
|000025a0| 6d 65 73 73 61 67 65 20 | 22 6e 6e 73 70 6f 6f 6c |message |"nnspool|
|000025b0| 3a 20 25 73 22 20 6e 6e | 73 70 6f 6f 6c 2d 73 74 |: %s" nn|spool-st|
|000025c0| 61 74 75 73 2d 73 74 72 | 69 6e 67 20 64 69 6e 67 |atus-str|ing ding|
|000025d0| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 6e 6e 73 70 6f | run-hoo|ks nnspo|
|000025e0| 6f 6c 2d 72 65 6a 65 63 | 74 65 64 2d 61 72 74 69 |ol-rejec|ted-arti|
|000025f0| 63 6c 65 2d 68 6f 6f 6b | 5d 20 34 5d 29 0a 28 64 |cle-hook|] 4]).(d|
|00002600| 65 66 61 6c 69 61 73 20 | 27 6e 6e 73 70 6f 6f 6c |efalias |'nnspool|
|00002610| 2d 72 65 74 72 69 65 76 | 65 2d 68 65 61 64 65 72 |-retriev|e-header|
|00002620| 73 2d 77 69 74 68 2d 6e | 6f 76 20 23 5b 28 61 72 |s-with-n|ov #[(ar|
|00002630| 74 69 63 6c 65 73 20 26 | 6f 70 74 69 6f 6e 61 6c |ticles &|optional|
|00002640| 20 66 65 74 63 68 2d 6f | 6c 64 29 20 22 08 86 05 | fetch-o|ld) "...|
|00002650| 00 09 3f 85 4e 00 c2 0b | 5c 66 c5 23 0e 06 c7 1e |..?.N...|\f.#....|
|00002660| 08 1e 09 1e 5c 6e cb 0e | 5c 6e 21 85 4d 00 8a 0e |....\n..|\n!.M...|
|00002670| 5c 66 71 88 cd 20 88 0e | 0e 83 34 00 ce 0e 06 0e |\fq.. ..|..4.....|
|00002680| 5c 6e 5c 22 82 4c 00 cf | 0e 5c 6e 21 88 0e 10 83 |\n\".L..|.\n!....|
|00002690| 48 00 0e 10 a7 84 48 00 | d1 82 4c 00 c7 d2 d3 8f |H.....H.|..L.....|
|000026a0| 29 2b 87 22 20 5b 67 6e | 75 73 2d 6e 6f 76 2d 69 |)+." [gn|us-nov-i|
|000026b0| 73 2d 65 76 69 6c 20 6e | 6e 73 70 6f 6f 6c 2d 6e |s-evil n|nspool-n|
|000026c0| 6f 76 2d 69 73 2d 65 76 | 69 6c 20 6e 6e 68 65 61 |ov-is-ev|il nnhea|
|000026d0| 64 65 72 2d 67 72 6f 75 | 70 2d 70 61 74 68 6e 61 |der-grou|p-pathna|
|000026e0| 6d 65 20 6e 6e 73 70 6f | 6f 6c 2d 63 75 72 72 65 |me nnspo|ol-curre|
|000026f0| 6e 74 2d 67 72 6f 75 70 | 20 6e 6e 73 70 6f 6f 6c |nt-group| nnspool|
|00002700| 2d 6e 6f 76 2d 64 69 72 | 65 63 74 6f 72 79 20 22 |-nov-dir|ectory "|
|00002710| 2e 6f 76 65 72 76 69 65 | 77 22 20 61 72 74 69 63 |.overvie|w" artic|
|00002720| 6c 65 73 20 6e 69 6c 20 | 6c 61 73 74 20 61 72 74 |les nil |last art|
|00002730| 73 20 6e 6f 76 20 66 69 | 6c 65 2d 65 78 69 73 74 |s nov fi|le-exist|
|00002740| 73 2d 70 20 6e 6e 74 70 | 2d 73 65 72 76 65 72 2d |s-p nntp|-server-|
|00002750| 62 75 66 66 65 72 20 65 | 72 61 73 65 2d 62 75 66 |buffer e|rase-buf|
|00002760| 66 65 72 20 6e 6e 73 70 | 6f 6f 6c 2d 73 69 66 74 |fer nnsp|ool-sift|
|00002770| 2d 6e 6f 76 2d 77 69 74 | 68 2d 73 65 64 20 69 6e |-nov-wit|h-sed in|
|00002780| 73 65 72 74 2d 66 69 6c | 65 2d 63 6f 6e 74 65 6e |sert-fil|e-conten|
|00002790| 74 73 20 66 65 74 63 68 | 2d 6f 6c 64 20 74 20 28 |ts fetch|-old t (|
|000027a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 83 0e 00 |byte-cod|e ".....|
|000027b0| c2 0b 40 09 5a 5d 82 10 | 00 0b 40 21 88 65 60 7c |..@.Z]..|..@!.e`||
|000027c0| 88 c0 0b 41 83 23 00 0b | 41 89 13 82 18 00 0b 40 |...A.#..|A......@|
|000027d0| 21 83 2c 00 c2 79 88 60 | 64 7c 88 c4 20 c5 55 3f |!.,..y.`|d|.. .U?|
|000027e0| 85 74 00 c6 79 88 c7 70 | 21 89 16 08 0b 40 55 83 |.t..y..p|!....@U.|
|000027f0| 49 00 c9 87 0e 5c 6e 83 | 61 00 0e 08 0e 5c 6e 40 |I....\n.|a....\n@|
|00002800| 58 83 61 00 0e 5c 6e 89 | 41 16 5c 6e 88 82 49 00 |X.a..\n.|A.\n..I.|
|00002810| 0e 5c 6e 83 73 00 cb 0e | 5c 6e 89 41 16 5c 6e 40 |.\n.s...|\n.A.\n@|
|00002820| 21 88 82 61 00 c9 87 22 | 20 5b 6e 6e 73 70 6f 6f |!..a..."| [nnspoo|
|00002830| 6c 2d 66 69 6e 64 2d 6e | 6f 76 2d 6c 69 6e 65 20 |l-find-n|ov-line |
|00002840| 66 65 74 63 68 2d 6f 6c | 64 20 31 20 61 72 74 69 |fetch-ol|d 1 arti|
|00002850| 63 6c 65 73 20 62 75 66 | 66 65 72 2d 73 69 7a 65 |cles buf|fer-size|
|00002860| 20 30 20 2d 31 20 72 65 | 61 64 20 6c 61 73 74 20 | 0 -1 re|ad last |
|00002870| 74 20 61 72 74 73 20 6e | 6e 73 70 6f 6f 6c 2d 69 |t arts n|nspool-i|
|00002880| 6e 73 65 72 74 2d 6e 6f | 76 2d 68 65 61 64 5d 20 |nsert-no|v-head] |
|00002890| 35 29 20 28 28 65 72 72 | 6f 72 29 29 5d 20 34 5d |5) ((err|or))] 4]|
|000028a0| 29 0a 23 40 36 33 20 52 | 65 61 64 20 74 68 65 20 |).#@63 R|ead the |
|000028b0| 68 65 61 64 20 6f 66 20 | 41 52 54 49 43 4c 45 2c |head of |ARTICLE,|
|000028c0| 20 63 6f 6e 76 65 72 74 | 20 74 6f 20 4e 4f 56 20 | convert| to NOV |
|000028d0| 68 65 61 64 65 72 73 2c | 20 61 6e 64 20 69 6e 73 |headers,| and ins|
|000028e0| 65 72 74 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ert...(d|efalias |
|000028f0| 27 6e 6e 73 70 6f 6f 6c | 2d 69 6e 73 65 72 74 2d |'nnspool|-insert-|
|00002900| 6e 6f 76 2d 68 65 61 64 | 20 23 5b 28 61 72 74 69 |nov-head| #[(arti|
|00002910| 63 6c 65 29 20 22 8a 70 | c0 19 1a c3 c4 21 11 c5 |cle) ".p|.....!..|
|00002920| c6 0e 07 0e 08 5c 22 21 | 83 29 00 c9 0e 08 21 88 |.....\"!|.)....!.|
|00002930| ca 20 1e 0b 5c 6e 71 88 | 64 62 88 cc 0e 0b 21 88 |. ..\nq.|db....!.|
|00002940| 29 cd 09 21 2b 87 22 20 | 5b 6e 69 6c 20 62 75 66 |)..!+." |[nil buf|
|00002950| 20 63 75 72 20 6e 6e 68 | 65 61 64 65 72 2d 73 65 | cur nnh|eader-se|
|00002960| 74 2d 74 65 6d 70 2d 62 | 75 66 66 65 72 20 22 20 |t-temp-b|uffer " |
|00002970| 2a 6e 6e 73 70 6f 6f 6c | 20 68 65 61 64 2a 22 20 |*nnspool| head*" |
|00002980| 6e 6e 68 65 61 64 65 72 | 2d 69 6e 73 65 72 74 2d |nnheader|-insert-|
|00002990| 68 65 61 64 20 6e 6e 73 | 70 6f 6f 6c 2d 61 72 74 |head nns|pool-art|
|000029a0| 69 63 6c 65 2d 70 61 74 | 68 6e 61 6d 65 20 6e 6e |icle-pat|hname nn|
|000029b0| 73 70 6f 6f 6c 2d 63 75 | 72 72 65 6e 74 2d 67 72 |spool-cu|rrent-gr|
|000029c0| 6f 75 70 20 61 72 74 69 | 63 6c 65 20 6e 6e 68 65 |oup arti|cle nnhe|
|000029d0| 61 64 65 72 2d 69 6e 73 | 65 72 74 2d 61 72 74 69 |ader-ins|ert-arti|
|000029e0| 63 6c 65 2d 6c 69 6e 65 | 20 6e 6e 68 65 61 64 65 |cle-line| nnheade|
|000029f0| 72 2d 70 61 72 73 65 2d | 68 65 61 64 20 68 65 61 |r-parse-|head hea|
|00002a00| 64 65 72 73 20 6e 6e 68 | 65 61 64 65 72 2d 69 6e |ders nnh|eader-in|
|00002a10| 73 65 72 74 2d 6e 6f 76 | 20 6b 69 6c 6c 2d 62 75 |sert-nov| kill-bu|
|00002a20| 66 66 65 72 5d 20 34 20 | 28 23 24 20 2e 20 31 30 |ffer] 4 |(#$ . 10|
|00002a30| 34 30 37 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |407)]).(|defalias|
|00002a40| 20 27 6e 6e 73 70 6f 6f | 6c 2d 66 69 6e 64 2d 6e | 'nnspoo|l-find-n|
|00002a50| 6f 76 2d 6c 69 6e 65 20 | 23 5b 28 61 72 74 69 63 |ov-line |#[(artic|
|00002a60| 6c 65 29 20 22 64 65 62 | 70 65 c0 89 19 1a 1b 1c |le) "deb|pe......|
|00002a70| 1d 1e 06 09 84 52 00 0e | 06 0d 5c 5c c7 a5 62 88 |.....R..|..\\..b.|
|00002a80| c8 79 88 60 0b 55 84 27 | 00 6d 83 2d 00 c9 89 11 |.y.`.U.'|.m.-....|
|00002a90| 82 0f 00 60 13 ca 5c 66 | 21 89 12 0e 0b 56 83 40 |...`..\f|!....V.@|
|00002aa0| 00 60 16 06 82 0e 00 5c | 6e 0e 0b 57 83 4c 00 60 |.`.....\|n..W.L.`|
|00002ab0| 15 82 0e 00 cc 89 11 83 | 12 00 09 cc 3d 84 8e 00 |........|....=...|
|00002ac0| 5c 6e 0e 0b 3d 84 8e 00 | 60 11 60 0e 06 57 83 84 |\n..=...|`.`..W..|
|00002ad0| 00 5c 6e a7 83 74 00 5c | 6e 0e 0b 57 83 84 00 cd |.\n..t.\|n..W....|
|00002ae0| 79 88 60 11 6d 84 61 00 | ca 5c 66 21 12 82 61 00 |y.`.m.a.|.\f!..a.|
|00002af0| 5c 6e 0e 0b 3d 84 8e 00 | 09 62 88 c8 79 88 5c 6e |\n..=...|.b..y.\n|
|00002b00| 0e 0b 2e 06 3d 87 22 20 | 5b 6e 69 6c 20 66 6f 75 |....=." |[nil fou|
|00002b10| 6e 64 20 6e 75 6d 20 70 | 72 65 76 20 63 75 72 20 |nd num p|rev cur |
|00002b20| 6d 69 6e 20 6d 61 78 20 | 32 20 30 20 74 20 72 65 |min max |2 0 t re|
|00002b30| 61 64 20 61 72 74 69 63 | 6c 65 20 79 65 73 20 31 |ad artic|le yes 1|
|00002b40| 5d 20 37 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 7]).(d|efalias |
|00002b50| 27 6e 6e 73 70 6f 6f 6c | 2d 73 69 66 74 2d 6e 6f |'nnspool|-sift-no|
|00002b60| 76 2d 77 69 74 68 2d 73 | 65 64 20 23 5b 28 61 72 |v-with-s|ed #[(ar|
|00002b70| 74 69 63 6c 65 73 20 66 | 69 6c 65 29 20 22 08 40 |ticles f|ile) ".@|
|00002b80| 08 41 83 0e 00 08 41 89 | 10 82 03 00 08 40 19 1a |.A....A.|.....@..|
|00002b90| c3 c4 c5 c6 c5 c7 c8 5c | 6e 53 09 54 23 0e 09 26 |.......\|nS.T#..&|
|00002ba0| 06 2a 87 22 20 5b 61 72 | 74 69 63 6c 65 73 20 6c |.*." [ar|ticles l|
|00002bb0| 61 73 74 20 66 69 72 73 | 74 20 63 61 6c 6c 2d 70 |ast firs|t call-p|
|00002bc0| 72 6f 63 65 73 73 20 22 | 61 77 6b 22 20 6e 69 6c |rocess "|awk" nil|
|00002bd0| 20 74 20 66 6f 72 6d 61 | 74 20 22 42 45 47 49 4e | t forma|t "BEGIN|
|00002be0| 20 7b 66 69 72 73 74 6d | 73 67 3d 25 64 3b 20 6c | {firstm|sg=%d; l|
|00002bf0| 61 73 74 6d 73 67 3d 25 | 64 3b 7d 5c 6e 20 24 31 |astmsg=%|d;}\n $1|
|00002c00| 20 3e 3d 20 66 69 72 73 | 74 6d 73 67 20 26 26 20 | >= firs|tmsg && |
|00002c10| 24 31 20 3c 3d 20 6c 61 | 73 74 6d 73 67 20 7b 70 |$1 <= la|stmsg {p|
|00002c20| 72 69 6e 74 3b 7d 22 20 | 66 69 6c 65 5d 20 31 30 |rint;}" |file] 10|
|00002c30| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |]).(defa|lias 'nn|
|00002c40| 73 70 6f 6f 6c 2d 66 69 | 6e 64 2d 69 64 20 23 5b |spool-fi|nd-id #[|
|00002c50| 28 69 64 29 20 22 8a c0 | c1 21 71 88 c2 70 21 88 |(id) "..|.!q..p!.|
|00002c60| c3 20 88 c4 c5 c6 8f 88 | 65 62 88 c7 c8 21 85 24 |. ......|eb...!.$|
|00002c70| 00 c9 ca 21 cb c9 cc 21 | 21 42 cd 70 21 88 29 87 |...!...!|!B.p!.).|
|00002c80| 22 20 5b 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |" [get-b|uffer-cr|
|00002c90| 65 61 74 65 20 22 20 2a | 6e 6e 73 70 6f 6f 6c 20 |eate " *|nnspool |
|00002ca0| 77 6f 72 6b 2a 22 20 62 | 75 66 66 65 72 2d 64 69 |work*" b|uffer-di|
|00002cb0| 73 61 62 6c 65 2d 75 6e | 64 6f 20 65 72 61 73 65 |sable-un|do erase|
|00002cc0| 2d 62 75 66 66 65 72 20 | 6e 69 6c 20 28 62 79 74 |-buffer |nil (byt|
|00002cd0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 c2 c4 0d 21 |e-code "|.......!|
|00002ce0| 0e 06 26 06 87 22 20 5b | 63 61 6c 6c 2d 70 72 6f |..&.." [|call-pro|
|00002cf0| 63 65 73 73 20 22 67 72 | 65 70 22 20 6e 69 6c 20 |cess "gr|ep" nil |
|00002d00| 74 20 72 65 67 65 78 70 | 2d 71 75 6f 74 65 20 69 |t regexp|-quote i|
|00002d10| 64 20 6e 6e 73 70 6f 6f | 6c 2d 68 69 73 74 6f 72 |d nnspoo|l-histor|
|00002d20| 79 2d 66 69 6c 65 5d 20 | 37 29 20 28 28 65 72 72 |y-file] |7) ((err|
|00002d30| 6f 72 29 29 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |or)) loo|king-at |
|00002d40| 22 3c 5b 5e 3e 5d 2b 3e | 5b 20 09 5d 2b 5b 2d 30 |"<[^>]+>|[ .]+[-0|
|00002d50| 2d 39 7e 5d 2b 5b 20 09 | 5d 2b 5c 5c 28 5b 5e 20 |-9~]+[ .|]+\\([^ |
|00002d60| 2f 09 5c 6e 5d 2b 5c 5c | 29 2f 5c 5c 28 5b 30 2d |/.\n]+\\|)/\\([0-|
|00002d70| 39 5d 2b 5c 5c 29 5b 20 | 09 5c 6e 5d 22 20 6d 61 |9]+\\)[ |.\n]" ma|
|00002d80| 74 63 68 2d 73 74 72 69 | 6e 67 20 31 20 73 74 72 |tch-stri|ng 1 str|
|00002d90| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 32 20 6b 69 6c |ing-to-i|nt 2 kil|
|00002da0| 6c 2d 62 75 66 66 65 72 | 5d 20 34 5d 29 0a 23 40 |l-buffer|] 4]).#@|
|00002db0| 33 38 20 49 6e 73 65 72 | 74 20 46 49 4c 45 20 69 |38 Inser|t FILE i|
|00002dc0| 6e 20 73 65 72 76 65 72 | 20 62 75 66 66 65 72 20 |n server| buffer |
|00002dd0| 73 61 66 65 6c 79 2e 1f | 0a 28 64 65 66 61 6c 69 |safely..|.(defali|
|00002de0| 61 73 20 27 6e 6e 73 70 | 6f 6f 6c 2d 66 69 6e 64 |as 'nnsp|ool-find|
|00002df0| 2d 66 69 6c 65 20 23 5b | 28 66 69 6c 65 29 20 22 |-file #[|(file) "|
|00002e00| 08 71 88 c1 20 88 c2 c3 | c4 8f 87 22 20 5b 6e 6e |.q.. ...|..." [nn|
|00002e10| 74 70 2d 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |tp-serve|r-buffer|
|00002e20| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 6e 69 | erase-b|uffer ni|
|00002e30| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |l (byte-|code "..|
|00002e40| 21 88 c2 87 22 20 5b 6e | 6e 68 65 61 64 65 72 2d |!..." [n|nheader-|
|00002e50| 69 6e 73 65 72 74 2d 66 | 69 6c 65 2d 63 6f 6e 74 |insert-f|ile-cont|
|00002e60| 65 6e 74 73 2d 6c 69 74 | 65 72 61 6c 6c 79 20 66 |ents-lit|erally f|
|00002e70| 69 6c 65 20 74 5d 20 32 | 29 20 28 28 66 69 6c 65 |ile t] 2|) ((file|
|00002e80| 2d 65 72 72 6f 72 29 29 | 5d 20 33 20 28 23 24 20 |-error))|] 3 (#$ |
|00002e90| 2e 20 31 31 36 39 39 29 | 5d 29 0a 28 64 65 66 61 |. 11699)|]).(defa|
|00002ea0| 6c 69 61 73 20 27 6e 6e | 73 70 6f 6f 6c 2d 70 6f |lias 'nn|spool-po|
|00002eb0| 73 73 69 62 6c 79 2d 63 | 68 61 6e 67 65 2d 64 69 |ssibly-c|hange-di|
|00002ec0| 72 65 63 74 6f 72 79 20 | 23 5b 28 67 72 6f 75 70 |rectory |#[(group|
|00002ed0| 29 20 22 08 84 06 00 c1 | 87 c2 08 21 1b c4 0b 21 |) ".....|...!...!|
|00002ee0| 83 19 00 0b 15 08 89 16 | 06 82 1e 00 c7 c8 c9 08 |........|........|
|00002ef0| 23 29 87 22 20 5b 67 72 | 6f 75 70 20 74 20 6e 6e |#)." [gr|oup t nn|
|00002f00| 73 70 6f 6f 6c 2d 61 72 | 74 69 63 6c 65 2d 70 61 |spool-ar|ticle-pa|
|00002f10| 74 68 6e 61 6d 65 20 70 | 61 74 68 6e 61 6d 65 20 |thname p|athname |
|00002f20| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|00002f30| 20 6e 6e 73 70 6f 6f 6c | 2d 63 75 72 72 65 6e 74 | nnspool|-current|
|00002f40| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 6e 73 70 6f |-directo|ry nnspo|
|00002f50| 6f 6c 2d 63 75 72 72 65 | 6e 74 2d 67 72 6f 75 70 |ol-curre|nt-group|
|00002f60| 20 6e 6e 68 65 61 64 65 | 72 2d 72 65 70 6f 72 74 | nnheade|r-report|
|00002f70| 20 6e 6e 73 70 6f 6f 6c | 20 22 4e 6f 20 73 75 63 | nnspool| "No suc|
|00002f80| 68 20 6e 65 77 73 67 72 | 6f 75 70 3a 20 25 73 22 |h newsgr|oup: %s"|
|00002f90| 5d 20 34 5d 29 0a 23 40 | 32 36 20 46 69 6e 64 20 |] 4]).#@|26 Find |
|00002fa0| 74 68 65 20 70 61 74 68 | 20 66 6f 72 20 47 52 4f |the path| for GRO|
|00002fb0| 55 50 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |UP...(de|falias '|
|00002fc0| 6e 6e 73 70 6f 6f 6c 2d | 61 72 74 69 63 6c 65 2d |nnspool-|article-|
|00002fd0| 70 61 74 68 6e 61 6d 65 | 20 23 5b 28 67 72 6f 75 |pathname| #[(grou|
|00002fe0| 70 20 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 74 69 |p &optio|nal arti|
|00002ff0| 63 6c 65 29 20 22 c0 09 | 5c 6e 0b 23 87 22 20 5b |cle) "..|\n.#." [|
|00003000| 6e 6e 68 65 61 64 65 72 | 2d 67 72 6f 75 70 2d 70 |nnheader|-group-p|
|00003010| 61 74 68 6e 61 6d 65 20 | 67 72 6f 75 70 20 6e 6e |athname |group nn|
|00003020| 73 70 6f 6f 6c 2d 73 70 | 6f 6f 6c 2d 64 69 72 65 |spool-sp|ool-dire|
|00003030| 63 74 6f 72 79 20 61 72 | 74 69 63 6c 65 5d 20 34 |ctory ar|ticle] 4|
|00003040| 20 28 23 24 20 2e 20 31 | 32 31 38 37 29 5d 29 0a | (#$ . 1|2187)]).|
|00003050| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 73 70 6f |(defalia|s 'nnspo|
|00003060| 6f 6c 2d 73 65 63 6f 6e | 64 73 2d 73 69 6e 63 65 |ol-secon|ds-since|
|00003070| 2d 65 70 6f 63 68 20 23 | 5b 28 64 61 74 65 29 20 |-epoch #|[(date) |
|00003080| 22 c0 c1 c2 0b 21 5c 22 | 1c c0 c5 c6 c2 0b 21 c7 |"....!\"|......!.|
|00003090| 48 21 5c 22 1e 08 c9 ca | 0e 08 38 0e 08 41 40 0e |H!\"....|..8..A@.|
|000030a0| 08 40 ca 5c 66 38 5c 66 | 41 40 5c 66 40 cb 5c 66 |.@.\f8\f|A@\f@.\f|
|000030b0| 38 26 07 89 1e 5c 66 40 | cd 5f 0e 5c 66 41 40 5c |8&...\f@|._.\fA@\|
|000030c0| 5c 2b 87 22 20 5b 6d 61 | 70 63 61 72 20 23 5b 28 |\+." [ma|pcar #[(|
|000030d0| 74 69 29 20 22 08 85 07 | 00 c1 08 21 87 22 20 5b |ti) "...|...!." [|
|000030e0| 74 69 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |ti strin|g-to-int|
|000030f0| 5d 20 32 5d 20 74 69 6d | 65 7a 6f 6e 65 2d 70 61 |] 2] tim|ezone-pa|
|00003100| 72 73 65 2d 64 61 74 65 | 20 64 61 74 65 20 74 64 |rse-date| date td|
|00003110| 61 74 65 20 23 5b 28 74 | 69 29 20 22 08 85 07 00 |ate #[(t|i) "....|
|00003120| c1 08 21 87 22 20 5b 74 | 69 20 73 74 72 69 6e 67 |..!." [t|i string|
|00003130| 2d 74 6f 2d 69 6e 74 5d | 20 32 5d 20 74 69 6d 65 |-to-int]| 2] time|
|00003140| 7a 6f 6e 65 2d 70 61 72 | 73 65 2d 74 69 6d 65 20 |zone-par|se-time |
|00003150| 33 20 74 74 69 6d 65 20 | 65 6e 63 6f 64 65 2d 74 |3 ttime |encode-t|
|00003160| 69 6d 65 20 32 20 34 20 | 75 6e 69 78 20 36 35 35 |ime 2 4 |unix 655|
|00003170| 33 36 2e 30 5d 20 31 30 | 5d 29 0a 28 70 72 6f 76 |36.0] 10|]).(prov|
|00003180| 69 64 65 20 28 71 75 6f | 74 65 20 6e 6e 73 70 6f |ide (quo|te nnspo|
|00003190| 6f 6c 29 29 0a          |                         |ol)).   |        |
+--------+-------------------------+-------------------------+--------+--------+